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Ha llegado un Ne 1 
en USA para su 


Commodore 64 


Ud. está en su posición vigilando 
Washington D.C. 

La ciudad parece apacible desde 
su puesto de defensa y no hay los 
signos de la invasión Extraterrestre 
que Ud. espera. 

De pronto el silencio es alterado 
por el penetrante silbido de los 
platillos volantes. Son los invasores 
descendiendo sobre la ciudad. 

Ud. entra en acción y pone en su 
punto de mira al platillo volante. 

Aprieta el botón dejuego y sale un 

| misil que destruye al ovni 

| desintegrándose el platillo. Otro 

' platillo volante se acerca a los 

edificios y antes de que Ud. se de 

cuenta destruye el monumento de 

Washington C.D. con un rayo de 

energía atómica. La batalla 

transcurre durante el día y en un 

momento determinado pasa a ser 

de noche. 

Si un platillo aterriza todo está 
perdido. Cuando Ud. consiga 

/ neutralizar el ataque el juego 

| continuará y se deberá destruir la 
nave madre. Silo consigue una gran 
celebración le espera cuando 

vuelva a Washington D.C. 


An action game 
for the 
Commodore 64” 


SAUCER ATTACK 
es realmente 
un JUEGO DISTINTO TOMADAS DIRECTAMENTE 


DE UN MONITOR 1702 
COMMODORE 


¡INSUPERABLE CALIDAD AUDIO-VISUAL , 


PEDIDOS 
NOMBRE 
FERRE-MORET /.A. DIRECCION DoS 
CIUDAD PROVINCIA 
Tuset n.* 8, entlo. 2.2 Tel. 218 02 93 O Adjunto cheque 
BARCELONA 08006 SSA 


O Contra reembolso 


Precio Venta 
a pri Gas:os envio: 300 ptas. 9.975 ptas. 


1.*r CONCURSO NACIONAL ESCOLAR 
DE PROGRAMACION 
(bases pág. 5, premios pág. 13) 

Ya tenemos la relación de premios que se 
otorgarán a los futuros ganadores del Ls" 
CONCURSO NACIONAL ESCOLAR DE 
PROGRAMACION 

NIVEL EGG.—100.000 pesetas en material 
a elegir al concursante individual o equipo. El 
centro representado por el ganador recibirá, a 
elegir, un Ordenador SX-64 ó bien 5 Ordena- 
dores Commodore del nuevo modelo 16 con 
sus correspondientes Cassettes. 

NIVELES F.P. y BUP,—150.000 pesetas en 
material a elegir para cada uno de los ganado- 
res (individual o equipo) de estas dos catego- 
rías, Los Centros representados por los gana- 
dores recibirán, a elegir, un Ordenador 
Profesional Commodore con sus unidades de 
disco o bien 5 Commodore 16 con sus corres- 
pondientes Cassettes. Todos los ganadores, 
incluidos los centros, recibirán asimismo sus- 
cripciones a Commodore World y Micro- 
temas. 

Ya sólo queda el animaros a todos, centros y 
alumnos a darle al teclado, a la imaginación y a 
la creatividad. 


REPETICION DE PROGRAMAS 
DE NUESTRO N* 7 

Parece ser que en un momento dado, parte 
de la tirada de nuestro número 7, correspon- 
diente a septiembre salió con varios listados 
defectuosos debido a algún fallo mecánico de 
la imprenta, En páginas centrales de este 
número aparece una separata extra con repeti- 
ción de estos listados, ya que parece haber sido 
bastante alto el número de lectores afectados. 
Lamentamos este incidente, completamente 
ajeno a nosotros, y damos las gracias a Iber- 
gráficas por haberse ofrecido inmediatamente 
a la impresión de esta separata. 


NUMERO ESPECIAL DE NAVIDAD 
mos preparando un volumen especial de 
programas (de 75 a 100) cara a las fiestas de 
Navidad. Este número especial, que esperamos 
poder presentar en SIMO, lo podrán adquirir 
nuestros suscriptores a precio de coste y el 
resto de nuestros lectores con un descuento del 
. El precio de venta al público será de 
1.250 pesetas. Por lo tanto el precio de nuestros 
suscriptores será de 625 pesetas y a los lectores 
no suscriptores de 935 pesetas. 

La tirada tendrá un número limitado por lo 
que ya podéis reservar la copia o copias que 
descéis (boletín pie de página) pues no habrá 
reimpresión una vez que se agoten. 


EL EQUIPO AUMENTA 

Diego ya tiene ayudante, Alvaro Ibáñez, que 
asus 16 años y estudiante de COU es todo un 
joven genio del Computador. Bienvenido en 
nombre de todos (¡y especialmente de Diego!) 


SUSCRIPTORES 
Y SEÑAS CORRECTAS 

Tras haberse metido todas las suscripciones 
en el ordenador, si hay algún lector que 
observe alguna incorrección en su nombre o 
dirección, le rogamos nos lo comunique, así 
como cualquier cambio de domicilio que se 
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haya producido, a fin de evitar retrasos, pérdi- 
das o devoluciones. 

Y hablando de suscriptores... a por el 8.000. 
y... después del descanso veraniego, ya nos 
están llegando otra vez a toda marcha. 

Estamos en el suscriptor 5.670. Cuando lle- 
guemos al 8.000 se sortearán los viajes que se 
indican en la página 5 (Concursos Permanentes). 


Y HABLANDO DE VIAJES 


Sobre el viaje a Londres nada podemos de 
ros de momento ya que nuestro ganador, toda- 
vía no ha tenido esa semana libre para poder ir. 
Sin embargo, Diego y Joan se largaron a Esta- 
dos Unidos, como estaba previsto, y parece ser 
que no lo pasaron nada mal. Lo que Diego nos 
cuenta sobre la Fábrica de Circuitos Integra- 
dos de Commodore es fascinante. Pero mejor 
dejo que él haga un resumen de sus experiencias. 


PASEANDO POR “LAS AMERICAS” 


El día 19 de julio Joan Pujiula i Junca llegó a 
la estación de Chamartín en Madrid, le deja- 
mos refrescarse, y le enseñamos las oficinas y lue- 
go toda la capital en un rápido tour en coche 

El día 20 por la mañana temprano, salíamos 
de Madrid con destino a Nueva York. ¿Qué 
aventuras viajeras nos esperaban? 

Nos recogió Doris Moris, del Instituto de 
Asuntos Culturales (ICA), que nos invitó a una 
cena-merienda-almuerzo (según el reloj con 
que se mire) y nos enseñó parte de la ciudad. 

El día siguiente tuvimos libertad para reco- 
rrer tiendas, ver parte de la ciudad y descansar, 
aunque el tiempo se puso en contra, lluvia 
torrencial toda la mañana, no nos logró des- 
animar, compramos un paraguas de los que 
venden a 3$ en todas las esquinas de Nueva 
York los días de lluvia y seguimos 

Esa tarde amainó el temporal y fuimos con 
otros dos jóvenes de ICA a ver el espectáculo 
del Radio City Hall, fue fabuloso, tanto de 
colorido visual como musical. La sonorización 
de la sala y los medios materiales (elevadores, 
escenarios, proyectores, etc.), lo podéis imagi- 
nar, era de lo mejor, para eso se trata de uno de 
los edificios del centro Rockefeller 

El domingo por la mañana hicimos el tour 
del alto y bajo Manhatan al que nos invitó 
Ibercharter, como podréis imaginar recorrimos 
todo, desde el parque de las baterías (al sur) 
hasta casi el Bronx (al norte), y desde 
Brodway-oeste y las torres gemelas al edificio 
de Naciones Unidas al este, es curioso, pero ese 


CERCA DE 
2.500.000 PTAS. EN PREMIOS 


día el sol estaba tan luminoso que vendían 
gafas de sol en todas las esquinas de la ciudad 
también a 3 dólares. 

El lunes por la mañana tomamos un avión 
desde el aeropuerto Kennedy hasta el de Fila- 
delfia, donde tomamos una limusine hasta el 
hotel Sheraton de Valley Forge, que tienen 
unas vistas preciosas del valle y todo tipo de 
instalaciones deportivas y de descanso, nos- 
otros optamos por la segunda (lógico, ¿no?), y 
una cena estilo europeo (estábamos cansados 
de comida americana). 

El martes temprano nos recogió la limusine 
matrícula “CBM-1”, se trata del coche de los 
jefazos de Commodore, Es un Cadillac larguí- 
simo con bar, televisión, y todo dentro. Nos 
llevó a la planta de West Chester donde fabri- 
can en la actualidad una cifra escalofriante de 
millones de dólares en commodores 64. Creo 
que me bloqueé la cantidad a pesetas y perdí la 
mitad de la frase. Nos enseñaron toda la 
fábrica, desde el lugar donde se recibe la mate- 
ria prima al lugar donde se envían en camiones 
los C-64 a sus destinos, pasando por toda la 
adena de producción, 


Fuimos a comer con Mr. Sullivan y 
que nos llevaron a dar una vuelta en 
la limusine y luego le dijeron al chófer que nos 
llevase a la fábrica de circuitos integrados de 
nology, donde nos esperaba el señor 
G, Heil (gerente de seguridad y asesor 
de agencias de protección de entornos en 
Commodore Semiconductor Systems), vimos 
las salas de diseño y proyecto donde se "“cue- 
cen” las ideas que luego se convierten en chips, 
vimos la zona de producción desde unas ven- 
ranas, nos explicaron lo que hacía cada señor y 
por fin pasamos a unas salas que, como las 
salas de descompresión en los buzos o las ante- 
cámaras de depresión de las centrales nucl 
res, nos preparamos para pasar a la zona 
tica, tuvimos que ponernos unas zapatillas 
especiales, unos gorritos para el pelo, el bigote 
y las cejas, y unas batas protectoras. La razón 
de todo esto, es que basta una pequeña partí- 
cula de polvo para que un chip no sirva, igual 
mente durante la fabricación es suficiente una 
pequeña carga estática para destruir el más 
complejo de los circuitos integrados, y cada 
Waller (base sobre la que se van depositando 
todas las capas que forman el circuito inte- 
grado), tarda unos 24 días en fabricarse, con lo 
(Pasa a la pág. 66) 


NOMBRE . 
DIRECCION ........ 
PROVINCIA 


N? Suscriptor 


al precio especial para suscriptores. 


BOLETIN DE RESERVA ESPECIAL NAVIDAD 


ENVIO TALON OD 


a 
* Precio: suscriptor 625 pesetas. Lector no suscriptor 935 pesetas. 


EDAD .. 
...POBLACION . 
TELEFONO . 


GIRO 
No soy suscriptor pero adjunto el boletín de suscripción (pág. 7) y me acojo 


Convocatoria del Primer Concurso 
Nacional Escolar de Programación 
patrocinado por Commodore World 
y Microelectrónica y Control 


BASES 
1% Podrán participar en el mismo todos aquellos niños y jóve- 
nes que estén en edad escolar pre-universitaria o 
equivalente 
29 Habrá tres grupos definidos: 
a) 
b) B.U.P. 
e) F.P. 
3% Los trabajos pueden ser presentados por equipos o por 
individuales. 
4% Los trabajos presentados por equipos deben especificar: 
a) Nombre del equipo. 
b) Centro al que representan. 
€) Nivel de enseñanza que cursan (E.G.B.-B.U.P-F.P.). 
d) Nombre del profesor, monitor o coordinador. 
5% Los trabajos presentados por individuales deben ir acom- 
pañados de: 
a) Nombre del autor. 
b) Edad y curso que estudia 
€) (1) Si concursa representando a un centro: nombre del 
mismo y nombre del profesor responsable. 
(ii) Si concursa por sí mismo: nombre del colegio donde 
estudia y firma del director o profesor responsable ava- 
lando que en tanto cuanto conoce al concursante el trabajo 
que presenta es suyo propio. 


6* El tema del concurso es la realización de un programa edu- 
cativo sobre materia libre a elegir por los concursantes. La 
extensión del programa es también de libre elección. 

7% Cada centro puede presentar el número de equipos o con- 
cursantes individuales que desee, siempre que cada trabajo 
sea enviado por separado, 

8* Los trabajos deben incluir: 

a) Nombre el programa. 

b) Nombre del computador para el que está confeccio- 
nado y periféricos adicionales que se necesitan (si fuese el 
caso) 

e) Objetivo del programa 

d) Explicación detallada del programa (a máquina o 
impresora) 

e) Listado completo a impresora, 

f) Grabación en cinta o disco. 

9% Todos los trabajos presentados deben ser original 
inéditos. 

10% Los centros que pueden presentar equipos o concursantes 
individuales son: 

Todo colegio, escuela o instituto, público o privado 

que imparta las enseñanzas de E.G.B., B.U.P, o F.P. 

b) Centros de Informática que tengan grupos de es 
ñanza específica para niños y jóvenes menores de 18 años. 

<) Clubs de informática que mantengan actividades espe- 
cíficas para niños y jóvenes menores de 18 años. 

11% Los trabajos deben ser enviados antes del 31 de diciembre 
de 1984 a SIMSA, c/ Barquillo, 21-3* Izqda. 28004 Madrid. 

1 fallo del concurso se dará a conocer en la primera 
semana de marzo de 1985 en el lugar, fecha y hora que se 
indicarán 

13% Los trabajos 
patrocinadores. 


RELACION DE PREMIOS EN PAG. 13 


premiados quedarán propiedad de los 


CONCURSOS PERMANENTES 


Colaboraciones de Programas y Magia 


La verdad sea dicha: os estáis portando; las colaboraciones que nos están 
llegando son numerosas y de muy buena calidad. Por lo tanto, vamos a 
aclarar las condiciones de nuestros concursos permanentes. 

1) Los sorteos se realizarán en los meses de junio y diciembre. 

2) Se sortearán siempre seis premios, tres de 15.000, 10.000 y 5.000 
pesetas en metálico de “Commodore World” y tres del mismo valor en 
material de Microelectrónica y Control, entre todas las colaboraciones 
publicadas. 

3) Se sortearán siempre seis premios, tres de 3.000, 2.000 y 1.000 pesetas 
en metálico de “Commodore World” y tres del mismo valor en material de 
Microelectrónica y Control, entre todas las contribuciones publicadas en la 
sección de “Magia”. 

4) Adicionalmente, se sortearán diversos premios de cintas, juegos, etc. 
donados por firmas y distribuciones, ertre todas las colaboraciones. 

5) Los autores de las colaboraciones vendidas dentro de nuestro “Servicio 
de Cintas” percibirán el 20% del precio de la cinta. 

6) Todas las colaboraciones deben venir escritas a máquina y los progra- 
mas grabados en cinta (si es posible), o con el listado completo en impresora. 
Nuestros lectores más jóvenes pueden escribir a mano pero con letra muy 
clara. 

7) Quedan automáticamente descalificadas tanto del sorteo como del 


“Servicio de Cintas” las colaboraciones que hayan sido enviadas a otras 
revistas. 

8) Las colaboraciones se enviarán a “Commodore World", C/Barquillo, 
21-3 izda. 28004 Madrid. 


MAS VIAJES Y OTRO REGALO DE “IMPRESION”... 
A POR EL SUSCRIPTOR 8.000 


Es evidente que a nuestros sucriptores les gusta viajar. De mome 
Pujiula visitará los Estados Unidos en julio y Juan Mejuto Igl 
Inglaterra en el otoño. Queríamos sortear algo un poco espe: 
TODOS LOS SUCRIPTORES cuando lleguemos al susi 
8.000, y hemos optado por dos premios, uno concedido por Microelectró- 
nica y Control y otro concedido por “Commodore World", 

MEC regalará una impresora MPS 801 (o similar), y nosotros hemos 
escogido un surtido de viajes muy “chulos” para dos personas para que el 
ganador elija el que más le apetezca. La selección que hemos hecho es la 


Viajes de 4 días en hoteles de primera clase a uno de estos lugares: 
París, Lisboa, Atenas, Amsterdam, Niza, Viena. 

O viajes de una semana en hoteles de 4/5 estrell; 
Canarias o Mallorca. 


NO OLVIDEIS 
NUESTRA NUEVA 
DIRECCION: 
BARQUILLO, 21-3* IZDA. 
28004 MADRID 
TELEF.: 231 23 88 
231 2395 


TIRADA DE COMMODORE WORLD 
Certificación de 28.000 ejemplares 


Según certificado firmado por la auditoría internacional DELOITTE HASKINS SELLS, S. A. 


el 5 de marzo de 1984, 


la tirada de Commodore World es de 28.000 ejemplares. 
Este certificado se encuentra en las oficinas de S.1.M.S.A. para comprobación 
de cualquier persona o entidad que lo desee. 
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Convocatoria del primer concurso nacional 
de programación en 80 columnas de 
Commodore-64 y 40-80 columnas del 
VIC-20 patrocinado por Ferre-Moret, S.A. 
Con la colaboración de Commodore- 
World, más de 500.000 ptas. en premios 


BASES 


12 Podrán participar todos los usuarios de COMMODORE- 
64 y VIC-20 que hayan obtenido la tarjeta de 80 columnas 
de FERRE-MOREÍ, S.A, 

2% Cada concursante podrá presentar, un programa realizado 
por él o por un equipo del que deberán indicar un titular, 

'á la explicación detallada del programa redactado 

en español, escrito a máquina. El programa se enviará en 

ette o disco, adjuntando su correspondiente listado del 
programa. 


n por correo certificado a la siguiente dirección, 
ET, S.A. calle Buenos Aires n* 30, 22-3,4 de 
BARCELONA-36. Antes del 31 de enero de 1985 

59 Los programas no premiados podrán ser solicitados por sus 
propietarios en el plazo de treinta días después del fallo. 

6% El resultado se comunicará, directamente a los ganadores 
y se publicará en la revista COMMODORE WORLD. 


7% Los premios se entregarán durante la primera semana de 
marzo de 1985 coincidiendo con la entrega de premios del 
PRIMER CONCURSO NACIONAL ESCOLAR DE 
PROGRAMACION. 

8% Los programas premiados quedarán en propiedad de 
FERRE-MORET, S.A. 

92 Los programas que no obtengan premio, recibirán, en caso 
que asi lo considere FERRE-MORET, S.A., ofertas de 
compra de sus programas 

102 Los premios ascenderán a 500.000 Ptas. repartidos de la 
siguiente manera: 


1% 250.000 Ptas. 
2* 150.000 Ptas. 
32 100.000 Ptas. 


11% Todos los participantes, que no hayan recibido premio u 
oferta de compra, podrán participar en el concurso de cola- 
boradores que habitualmente COMMODORE WORLD 
viene realizando con un premio extra de FERRE-MORET, 
S.A., de 50.000 Ptas. 

12% Los trabajos deberán de ser inéditos y desarrollar temas de 
utilidad, programas profesionales, científicos, educativos, 
etcétera. 

FERRE-MORET, S.A. se reserva el derecho de modificar las 

bases de este certamen, dejarlo desierto o suprimirlo, por causa 

de fuerza mayor. En este caso la empresa se compromete a 

comunicarlo a través de COMMODORE WORLD, 


Clave para interpretar los listados 


lodos los listados que se publican en 
sta Revista han sido ejecutados en el 
odelo correspondiente de la gama 

de ordenadores COMMODORE, Para fac 
litar la edición de los mismos en la Revis 
y para mejorar su legibilidad por parte del 
usuario, se les ha sometido a ciertas modifi- 
caciones mediante un programa escrito 
ialmente para ello. Para los progra- 
inados a los ordenadores VIC-20 y 
COMMODORE 64, en los que se usan fre- 
cuentemente las posibilidades gráficas del 
teclado, se han sustituido los simbolos grá- 
ficos que aparecen normalmente en los lis- 
tados por una serie de letras entre corchetes 
[] que indican la secuencia de teclas que se 
deben pulsar para obtener el carácter 
deseado. A continuación se da una tabla 


para aclarar la interpretación de las indica- 
ciones entre corchetes: 


Tecla cursor hacia abajo (sin 


[CRSRU] = Tecla cursor hacia arriba con 
SHIFT) 


[CRSRR] = Tecla cursor a la derecha (sin 
SHIFT) 


[CRSRL]= Tecla cursor a la izquierda (con 
SHIFT) 


[HOME] = Tecla CLR/HOME (sin SHIFT) 
[CLR]= Tecla CLR/HOME (con SHIFT) 

Las indicaciones [BLK] a [YEL] corres- 
ponden a la pulsación de las teclas de 1 a 8 
junto a la tecla CTRL. Lo mismo sucede 


con [RVSON] y [RVSOF] respecto a la tecla 
CTRL y las teclas 9 y 10. 

l resto de las indicaciones constan de la 
parte COMM o SHIE seguidas de una 
letra, número o símbolo —por ejemplo 
[COMM+] o [SHIFA]—. Esto indica que 
para obtener el gráfico necesario en el pro- 
grama deben pulsarsc simultáneamente las 
teclas COMMODORE (la que lleva el logo- 
tipo) o una de SHIFT y la tecla indicada 
por la letra, el número o el símbolo, en el 
ejemplo anterior: COMMODORE y + o 
SHIFT y A, respectivamente. 

En los signos gr: además se cuenta 
el número de veces que aparece. Por ejem- 
plo, [7 CRSRR] equivale a 7 pulsaciones de 
la tecla cursor a la derecha y [3 SPC] tres 
pulsaciones de la barra espaciadora. Mm 


BASIC MICROORDENADORES 
BSP 
CASA DE SOFTWARE 
CENTRO DE INFORMATICA 
COMMODORE. 


COMPUTER CENTER 
CONCURSO ESCOLAR 


COMMODORE WORLD (Distribución) 
COMMODORE WORLD (Suscripción) 


NDICE DE ANUNCIANTES 


15 | DELTABIT... 50 

31 | ELECTROFICCION 51 

19,53 | FERRE MORET ....... 2, 21 

65 | IDEALOGIC, S.A. 33 

42, 43, 68 | INDESCOM .. 67 
24 | KENT ELECTRONIC... 27 

31 | MICROSISTEMAS. Separata 

52 | REGISTER LATELY CONTINENTAL.. 35 

13 | TELE SANT JUST. 37 
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BOLETIN DE SUSCRIPCION — Commodore World 


NOMBRE EDAD DESEO SUSCRIBIRME A 
DIRECCION COMMODORE WORLD POR 
POBLACION ( PROVINCIA UN AÑO AL PRECIO DE 
TELEF »..w MARCA Y MODELO DEL ORDENADOR 2.530 PTS. DICHA SUSCRIP- 

CION ME DA DERECHO, 
CIUDAD DONDE LO COMPRO DISTRIBUIDOR NO SOLO A RECIBIR LA 
APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO REVISTA (ONCE NUMEROS 


ANUALES) SINO A PARTICI 

PAR EN LAS ACTIVIDADES 

9 QUE SE ORGANICEN EN 

TORNO A ELLA Y QUE 

PUEDEN SER COORDINA 

CION DE CURSOS DE BASIC, 

INTERCAMBIOS DE PROGRA 
MAS, CONCURSOS, ETC. 


Deseo iniciar la suscripción con el n? 
Adjunto cheque de 2.530 pesetas [5] AS 
Reembolso más gastos del mismo 


al recibir el primer n? de la suscripción... [] 


aro lo din lorso) 


Extranjero $40, Solamente por correo aéreo 


EJEMPLARES ATRASADOS DE COMMODORE WORLD 
2/3 a[s 6|7| precio por ejemplar 275 ptas. (Hasta el n* 5) 


Commodore i Pm 
: == a a presa n* 6 el precio es de 315 ptas. 
WORLD | e pc 


Peticionario .... 


ES 


Calle... 
Población s D.P.............. Provincia . 
Incluyo cheque por valor de pesetas + 75 de gastos de envío. 


RA A A RA En 


SERVICIO DE CINTAS 
Commodore World. 


De programas aparecidos en 


Título del programa .... E E a... publicado en n2 LU 
Título del programa ita 3 a sono Publicado en n2 UU 
Título del programa ... O E publicado en n2 
Precio por cinta 850 pesetas. 

* Precio por disco 1.500 pesetas. 


Joastos de envío 75 pesetas. Forma de pago: ad) por cheque. 


Peticionario .............. 
Rob] CIO a ves OS D.P. PrO VICIO none. 
* Programa evaluación de colegios sólo en discos. Programa para VIC-20 O 
L Incluyo cheque por —..... pesetas. Programa para C-64 O 


EJEMPLARES ATRASADOS DE «CLUB COMMODORE» 
Primera época (septiembre-1982 - enero-1984) 


Para poder satisfacer la creciente demanda de Club Commodore, agotada en todos sus números, hemos puesto en 
marcha un Servicio para suministrar fotocopias de los ejemplares que nos sean solicitados 


pa _SERVICIO DE FOTOCOPIAS.— NUMERO DE LA EDICION SOLICITADA. 
PolaTzaTsT«[s]oe[z]8 [o [io] Ti] 18 ]14 Jas 


[ER A | | | lo] 


Peticionario: D 


ra] 


T 
| 
| 
Í 
| 


NE 


Calle A , . TELEF. 
Población a D.P Provincia 
Forma de pago sólo por cheque Precio de la edición fotocopiada: 250 ptas. 


La colección completa del O al 15: 2.500 ptas. + 150 ptas. por gastos de envío. 
Incluyo cheque por .. ptas. 


Commodore 


WORLD 


Barquillo, 21, 3 Izda. 
Teléf.: 231 23 85/86 
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Karl T. THURBER (RUN EEUU) 


Traducido y adaptado por Diego ROMERO 


No te deshagas de tu VIC 
cuando compras un C-64 


Por si no tienes suficiente con un solo ordenador 


n el año 1982, compré un VIC-20 y 
E" meses más tarde un C-64, un 

monitor en color, dos unidades de 
disco 1541 y una impresora 1525. Fue 
fácil conectar las unidades de disco y la 
impresora a cualquiera de los dos orde- 
nadores (pero no a los dos en un solo 
sistema) mediante el bus de serie 1/0, 
dado que los dispositivos están conecta- 
dos entre sí en forma de cadena. 

Sin embargo, me interesaba seguir uti- 
lizando el VIC-20 con todos los periféri- 
cos ya que poseía una colección de soft- 
ware para el VIC (especialmente juegos) 
bastante completa. Además, los niños se 
divertían mucho con el VIC y les servía 
para aprender. Lo que me hacía falta era 
un interface capaz de hacer dos cosas: 
conmutar el bus de seric 1/0 de seis cone- 
xiones que llevaba los periféricos a cual- 
quiera de los dos ordenadores, y conmu- 
tar las conexiones acústicas y de video al 
monitor en color. 

Como no podía encontrar ningún inter- 
face hecho, lo tenía que construir yo 
mismo. El interface necesitaba un conmu- 
tador deslizante o rotativo de 2 circuitos, 
2 posiciones para las líneas de áudio y 
video, (En vez de esto, se podía haber uti- 
lizado un solo conmutador de ocho cir- 
cuitos), 

Los conmutadores los monté en una 
pequeña caja de 8 X 5,5 X 10 cm., del tipo 


de laboratorios Multi o Retex. Instalé los 
conectores DIN hembra de seis patillas 
en el panel trasero, también monté en él 
dos jacks de tipo phono-RCA utilizados 
para las conexiones de audio y video. 
Para conectar los buses serie de 1/0 de 
cada computador a la caja interface, 
empleé una manguera de seis cables no 
blindados con conectores machos DIN de 
seis patillas en los extremos. Para unir los 
conectores de salida de audio/video, pre- 
paré cables con conectores machos de 
tipo DIN de 5 patillas en un extremo y 
jacks-RCA machos en el otro. La unión 
del monitor a la caja la hice con un juego 


Este interface, 

de fácil 
construcción, 

te permitirá usar 

el VIC-20, el C-64, 
¡l> los periféricos y 
monitor con rapidez 
y facilidad 


de cables de audio normale: con otro 
cable de seis conductores conecté la caja 
del interface con el primer drive 1541 de la 
cadena de periféricos. 

De este modo simple y sencillo, por 
menos de 3.000 pts., la pequeña caja- 
interface permite cambiar instantánea- 
mente de un computador al otro, utili- 
zando periféricos y monitor compartidos 
sin necesidad de enchufar y desenchufar 
cables. 

La única precaución a tener en cuenta, 
es apagar todo el equipo cuando se va a 
cambiar de ordenador, para evitar que 
voltajes transitorios de conmutación pue- 
dan dañar cualquier ordenador o perifé- 
rico. Por supuesto los controles de color 
del monitor necesitarán un pequeño 
reajuste al pasar de un ordenador al otro 
La figura | muestra el diagrama de blo- 
ques de las conexiones del interface des- 
crito. . 


CABLE DIN A LOS 
PERIFERICOS 


aa] 


CONMUTADOR 
6 CIR. 2 POS, 


*CONECTOR PHONO 
DE RCA 

**CONECTOR DIN DE 
SEIS PATILLAS 


1/O DEL C-64 
VO DEL vIC-20 


Fig. 1. Diagrama de bloques del interface auto-construido. 


AUDIO/VIDEO AL 
MONITOR (DOS HILOS) 


¡=== 


CONMUTADOR 
2 CIR. 2 POS. 


AUDIO/VIDEO DEL 
VIC-20 (DOS HILOS) 
AUDIO/VIDEO 

DEL C-64 (DOS HILOS) 
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Viaje al centro 
de tu Commodore 


Traducido por Valerie SHANKS y adaptado por Alvaro IBAÑEZ 


Vente de viaje con nosotros para 
explorar los misterios de la memoria 
de tu ordenador 


¿Alguna vez has deseado poder ver lo que ocurre dentro 
de tu ordenador? El programa “Fisgon” convierte tu pan- 
talla en una ventana móvil que puedes utilizar para 
emprender un viaje gráfico de exploración por la memo- 
ria entera de tu Commodore. 

Podrás ver cómo se almacena y se organiza un pro- 
grama en Basic, investigar el sistema operativo y de 
lenguaje Basic en la ROM del ordenador y viajar por 
muchos otros puntos de interés. Hablaremos princi- 
palmente del C-64, pero el dueño del VIC-20 tam- 
bién encontrará mucho que puede ser aplicado a su 
máquina, dado que los dos ordenadores se basan 
en el microprocesador 6502. 

Para que el programa “Fisgon” funcione 
correctamente, tecléalo tal y como aparece en 

Ú 


el listado, sin añadir ningún espacio ni quitar 
dible salvar una copia antes de ejecutarlo, y 
a encenderlo para borrar la memoria, 
: A 17 
son las instrucciones. Pulsa la tecla A // 
ros no son iguales que los de las ins- 
al teclear. Si los números son igua- 
y apúntate al viaje. 


ningún REM. El programa contiene lenguaje 
por si te has equivocado al teclearlo. A 
carga el programa y ejecútalo. 
para comprobar la dirección de la pi 

; h WA 
trucciones, pulsa la Q para salir, y (4 
les, pulsa cualquier tecla para 
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máquina (ML), y por lo tanto es impresc 
continuación, apaga el ordenador y vuelve 

Lo primero que aparece en pantalla 
ventana de la memoria. Si los núme- 
comprueba que no te has equivocado FE 
borrar las direcciones de la pantalla 


i pulsas la tecla del cursor hacia 
Suso aparecen las direcciones de la 

parte inferior de la memoria, una 
línea de pantalla (40 bytes) a la vez. Deja 
pasar unas cuantas líneas a partir de la 
dirección 12288, donde empiezan las ins- 
trucciones; la pantalla empezará a lle- 
narse de gráficos que no tienen ningún 
sentido, 

Cada carácter gráfico en la pantalla 
representa una sola célula (dirección) de 
memoria en el ordenador. Existen 65.536 
células en total, numeradas desde el cero 
hasta el 65,535 y cada célula siempre con- 
tiene algún número dentro del rango de 
cero hasta 255, 

Puedes descubrir el número almace- 
nado en cualquier dirección de pantalla 
simplemente consultando su carácter en 
la tabla de códigos de pantalla en el 
manual del usuario. Por ejemplo, el 
carácter * localizado a la izquierda supe- 
rior de las instrucciones significa que la 
dirección 12288 contiene un valor de 42. 
La 12289 está en blanco, lo que quiere 
decir que el valor que contiene es de 32, 
etc. Ten en cuenta de que el valor cero 
está representado por el carácter (0, y los 
caracteres de video inverso representan 
los valores de 128 hasta 255. 

Ya que sabes esto, podrás deducir el 
valor almacenado en cualquier dirección 
y podrás identificar las direcciones utili- 
zando tu comprobador de direcciones y 
unas sencillas operaciones matemáticas. 
Pero no pierdas el tiempo intentando 
interpretar esta Es simple- 
mente “RAM libre”, un espacio de 
memoria no utilizado que no contiene 
nada que tenga sentido. Esto aparece en 
cantidad antes de llegar al programa en 
Basic, asi que hay que seguir pasando 
líneas hasta que el comprobador de direc- 
ciones indique que has llegado a las direc- 
ciones 2084-3047. Pulsa la tecla del cursor 
si te pasas de largo. 

¿Ya has encontrado el sitio? Si no 
encuentras las palabras en español pulsa 
las teclas Commodore y Shift simultá- 
neamente. En la primera línea aparece la 
palabra Fisgón, con asteriscos al lado. 
Esta constituye la primera línea del pro- 
grama en Basic, que contiene un REM. 
Hasta allí todo parece bastante familiar, y 
aparecen más palabras en español en 
otros sitios, pero ¿qué ha pasado con el 
resto del programa? 

No te preocupes, las líneas que has 
tecleado siguen estando allí. Lo que pasa 
es que estás estudiando la versión “sólo 
para ordenadores”. Para ahorrar tiempo 
y espacio, el ordenador abrevia las líneas 
en Basic a medida que las va almace- 
nando en la RAM, comprimiendo cada 
palabra clave en Basic para que quede 
como un símbolo especial de un carácter 
llamado “token”. 

Compara esta versión abreviada con la 
línea 2 del listado, y verás que el comando 
Poke se abrevia como una W invertida. El 
“token” para GOSUB es una M inver- 
tida, etc, 

Para que te des cuenta de la cantidad de 
espacio que se ahorra, piensa que este 


bloque de 1.000 bytes contiene el pro- 
grama “Fisgón” hasta casi el final de la 
línea 29. Si estas mismas líneas se presen- 
taran en forma de listado, ocuparían 
alrededor de 1.650 bytes, casi las dos ter- 
ceras partes más del espacio de memoria. 
Y esto es sólo parte del programa. 

Si abrevias el texto del programa tam- 
bién ahorras espacio, dado que el orde- 
nador es capaz de reconocer el “token” 
de un byte y seguir avanzando, en vez de 
tener que tragarse los tres o cuatro bytes 
de una palabra en Basic. El ordenador 
resulta más breve todavía al ser capaz de 
unir el final de una línea con el principio 
de otra. El ordenador marca el final de 
una línea para su propia referencia con un 
cero (busca el carácter (0). También se 
abrevian los números de línea del pro- 
grama, pero hay otras cosas que no pue- 
den ser reducida: 

Como ya has visto, los REM (como en 
la línea 1) tienen que ser almacenados en 
la memoria de la misma forma que apare- 
cen en el listado. De esta forma, puedes 
leer tus comentarios (REM) en las mismas 
“entrañas” del ordenador. Ocurre lo 
mismo con los nombres de las variables 
y los “arrays” en Basic y con cualquier 
carácter que metes entre comillas, como 
una sentencia print, por ejemplo. Tam- 
bién quedan los espacios, con la excep- 
ción de los que aparecen después de un 
número de línea. Este almacenamiento 
literal de ciertas partes del texto normal- 
mente no crea problemas para el potente 
C-64, pero el uso innecesario de los REM 
con el VIC-20 constituyer una pérdida de 
memoria que puede resultar cara. 


Almacenamiento 
de variables 

Esta zona de almacenamiento de texto 
es estática, y la podrías estar mirando 
todo el día, pero aquí no cambiaría nada. 
Tu programa en Basic tiene que ser alma- 
cenado como un texto fijo que el ordena- 
dor leerá mientras lo está ejecutando 
Como un estudiante diligente, comienza 


desde el principio y va por orden, ejecu- 
tando las instrucciones a medida que 
avanza. 

El almacenamiento de un texto en 
Basic en el C-64 normalmente empieza en 
la dirección 2048, de modo que el orde- 
nador no tiene ningún problema en loca- 
lizar el comienzo. En realidad, la direc» 
ción 2048 siempre tiene que contener un 
cero, de modo que el texto (incluyendo 
los números de línea) realmente empieza 
en la dirección 2049. Pero algunos pro- 
gramas son más largos que otros, y el 
ordenador necesita saber cuándo ha lle- 
gado al final de un texto. Por eso el orde- 
nador coloca un indicador. Cuando 
almacena un programa en Basic, el orde- 
mador marca el punto en la memoria 
donde finaliza el texto mediante el alma- 
cenamiento de dos ceros adicionales justo 
después del cero que marca el final de la 
última línea del programa en Basic. 

Ahora vuelve al principio de la memo- 
ria para ver esto. Para que fuese más fácil 
de encontrar, dejé unas líneas en blanco 
donde sabía que el programa “Fisgón". 
terminaría en la RAM, y puse un comen- 
tario (REM) en la última línea que dice 
“—Fin de programa en Basic—Principio 
variables—”. Ten en cuenta que los espa- 
cios oscuros en blanco normalmente no 
están presentes. Yo los puse allí para que 
esta primera búsqueda resultara más fácil. 

¿Has encontrado el último REM? El 
indicador de tres ceros aparece después de 
la flecha. Si avanzas esta línea hasta el 
principio de la pantalla y haces uso del 
comprobador de direcciones, puedes cal- 
cular fácilmente que el último carácter del 
texto en Basic ocupa la dirección 5020, 
seguido por el indicador de fin de texto. 
Pero si esto es el final, ¿quién añadió todo 
lo demás a tu programa, y qué significa? 

El culpable es el ordenador, que nece- 
sita más RAM para ejecutar tu programa 
que la que ocupa el texto solo. Antes de 
poder realizar los comandos, el ordena- 
dor tiene que reservar tres zonas adicion 
les de memoria para su propio uso espa 
cio para el almacenamiento de variables, 
“arrays” y “strings”. 

A lo mejor te has preguntado alguna 
vez, al hacer un programa en Basic, cómo 
el ordenador se acuerda de los valores de 
todas las variables que estás utilizando. El 
sistema que utiliza es sorprendentemente 
sencillo, y lo estás viendo ahora mismo. 
En cuanto empiezas a ejecutar el pro- 
grama, el ordenador establece una serie 
de casillas en la memoria, una para cada 
variable, y almacena el valor actual para 
cada variable en su propio sitio. Este 
espacio de almacenamiento para las 
variables siempre empieza después (en- 
cima) del texto del programa en Basic. 

Por ejemplo, si tu programa utiliza la 
variable A, el ordenador reserva una casi- 
lla y le pone la etiqueta A. Cada vez que 
cambias el valor de A con una sentencia 
como A=A+1, por ejemplo, el ordenador 
vuelve a la casilla A para convertir su 
contenido en el nuevo valor. De esta 
forma, cada vez que utilizas la variable A 
en una sentencia como C=A*B, el orde- Pp 
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»» nador volverá a la casilla A para saber el 
valor actual de A antes de utilizarla en el 
cálculo 

El ordenador empieza a fijar esta serie 
de casillas para las variables nada mas 
recibir el orden de ejecución, y crea un 
espacio de almacenamiento para cada 
variable en el mismo orden que las 
encuentra durante la ejecución del pro- 
grama. Para que veas cómo funciona en el 
programa “Fisgón”, mira el listado 
donde aparece un GOSUB de la línea 2 a 
la línea 39, De esta forma se fija la rutina 
de lenguaje máquina y la representación 
de las instrucciones en la memoria 

Por lo tanto, las primeras variables que 
encuentra el ordenador es la Z en la línea 
2, seguida por la J y la Q en la línea 41 y la 
K en la línea 86. Fíjate bien en las células 
de memoria después del marcador de fin 
de texto, y encontrarás cada uno de estos 
espacios para variables etiquetado con su 
propia letra. Estas variables no están en 
uso, de modo que sus casillas están in 
tivas. Pero las dos siguientes casillas 
demostrarán cómo funciona el almace- 
namiento de las variables. 


A A 
— 17208 101320 ————, 


Mos ADDRES! 


case move 
-o port 
CTO 


EOcutent 


e RNS 


puReoDCC0nOnePrnnOs 
eee 


1. Esto aparece nada más teclear RUN. La 
imagen en pantalla se desplazará hacia la dere- 
cha pero vuelve en seguida al centro. Aquí 
empieza el viaje por la memoria del ordenador. 


2. Estas son las posiciones de 0 a 255, es decir 
la “página cero”. Esta zona resulta muy útil 
para los programadores en lenguaje máquina. 


3. El sistema operativo de la memoria también 
tiene que disponer de una zona de trabajo. 


TR 
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_Viaje al centro de tu Commodore 


El programa “Fisgón” utiliza dos 
variables, LO y HI, para saber dónde se 
encuentra en cada momento. ¿Has encon- 
trado LO y HI? Ahora avanza la memoria 
en pantalla hacia arriba o hacia abajo, 
línea por línea. A medida que va pasando, 
aparecen nuevos caracteres justo al lado 
de las etiquetas de las variables, dado que 
el ordenador almacena los nuevos valores 
de LO y HI en sus casillas respectivas 

Detrás de LO y HI se encuentra un 
espacio para la única variable de “strings”, 
AS. Esta casilla es la más activa. Si no la 
has encontrado todavía, manten pulsada 
la barra de espacio, y observa mientras el 
ordenador introduce los nuevos valores a 
toda velocidad en la casilla de la variable 
AS. Ocurre así porque la línea 4 del pro- 
grama contiene la sentencia GET AS, y 
pasa una y otra vez por dicha línea 

Cada vez que pasa, el ordenador alma- 
cena un nuevo valor para AS si se pulsa 
una tecla distinta. (Como verás más ade- 
lante, otra cosa está ocurriendo en la 
parte superior de la memoria). Las 
siguientes dos variables, A y B, no se 
actualizan hasta que utilizas el compro- 
bador de direcciones. Verás que los valo- 
res se modifican dentro de sus casillas si 
tu compruebas tu dirección cada vez que 
se avanza una línea hacia arriba o hacia 
abajo. 

Cuando el programa llega por primera 
vez a la rutina Poke, el ordenador reser- 
vará un espacio para las últimas dos 
variables, C y D. Resulta divertido obser- 
var como los caracteres se modifican den- 
tro de estas casillas, pero no te molestes 
en intentar descifrar su significado, a no 
ser que entiendas sistemas de numeración 
tan complicados como “Código EBCDC”. 
Acepta de buena fe que tu ordenador sabe 
lo que está haciendo 

Dado que cada programa Basic ter- 
mina en un sitio distinto, y el espacio para 
el almacenamiento de variables se agrega 
al final del texto en Basic, la dirección 
donde comienza el almacenamiento de 
variables dependerá de la longitud de tu 


programa. El tamaño de la zona de alma- 
cenamiento de variables dependerá del 
número de variables que utilizas 

Si necesitas ahorrar espacio, resulta 
más económico utilizar las mismas varia- 
bles “corrientes” una y otra vez en una 
serie de bucles For... Next, como en las 
líneas 41 a 87 del programa “Fisgón”. De 
no ser así, se reservará memoria para una 
parte de variables que sólo realizan una 
tarea al principio del programa y que no 
hacen nada más el resto del tiempo 


Almacenamiento 
de “arrays” 

Justo encima de la zona para el alr 
cenamiento de variables, se encuentra 
otra zona especial, el espacio para el 
almacenamiento de “arrays”. Un “array” 
funciona como una tabla o lista de datos 
dentro de tu programa. En primer lugar 
introduces todos los valores, y los sacas 
siempre que los necesitas, simplemente 
haciendo referencia a su posición en el 
“array” 

El programa “Fisgón” no necesita 
hacer esto, pero para demostrar cómo se 
hace, incluye un “array” que no hace 
nada y que se llama ARRAY, Cada vez 
que pulsas la tecla Z, el ordenador asig- 
nará un nuevo valor (al azar) al siguiente 
espacio (elemento) en la tabla ARRAY 
Para ver cómo ocurre esto, tienes que 
encontrar la cabecera (header) que pone 
la etiqueta y define el “array”. Primero 
encontrarás los dos primeros caracter 
del propio nombre, AR. A continuación 
siguen las cinco posiciones que definen 
(en formato comprimido) el tamaño y el 
tipo del “array”. 

Este “array” es de “coma flotante”, de 
modo que el ordenador ha reservado 
cinco células para almacenar el valor para 
cada elemento. El espacio se guarda lle- 
nando las células de ceros. A medida que 
vayas definiendo cada elemento pulsando 
la tecla Z, el ordenador va metiendo los 
nuevos valores en estos espacios. Los 
valores son todos números enteros, que 
pueden ser almacenados en dos células, 
de modo que tres de las cinco células en 
cada espacio quedan sin usar. 

Pulsa la tecla Z unas cuantas veces, 
para ver cómo funciona. Recuerda que el 
“array” tiene 20 elementos, aunque ha 
sido dimensionado con la sentencia 
DIMARRAY (19). En este caso, como en 
muchos otros, el ordenador cuenta cero 
como un número, de modo que el primer 
elemento es ARRAY (0), seguido por 
ARRAY (1), etc. 

El punto que indica el fin de las varia- 
bles puede modificarse a mitad de un 
programa si el ordenador encuentra una 
nueva variable por primera vez. Cuando 
esto ocurre, toda la zona de almacena- 
miento de “arrays” volverá a ser “situada” 
en la memoria para hacer hueco para 
almacenar la nueva variable. El ARRAY 
de “Fisgón” no ocupa mucho sitio en la 
RAM, pero ten en cuenta que el espacio 
para los “arrays”, igual que el espacio 
para las variables, no se da gratuitamente. > 


_Viaje al centro de tu Commodore 


> Tu ordenador no puede ejecutar un 
programa en Basic sin haber reservado 
antes la memoria necesaria para estas 
zonas adicionales, lo que significa que el 
programa ocupa más memoria después de 


eopecerOn 
Oda: 


ammm E] 
veritas 


tos 
INT 


Pe ¿A 
ja 
PE 

TN 


lees E 
ADO 
Ec ad) cP0KE LON 


7el e One 
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JLE0A! 
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4. La memoria de pantalla. Todo lo que se 
encuentre en estas posiciones (1024-2039 en el 
C-4, 7681-8185 en el VIC-20) sale en la pantalla. 


5. Esta es la parte del programa escrita en Basic 
(realmente es la segunda parte). El ordenador lo 
ve de esta forma. 


6. A continuación de la zona de almacen: 
del programa en Basic se encuentra el espacio 
reservado por el ordenador para el registro de las 
variables. 
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ejecutarse que cuando se carga. Esto 
puede ser verificado con la función FRE 
¿Qué es lo que se aprende de esto? Si 
solamente el texto ocupa casi toda la 
RAM, tu programa podría ser salvado y 
cargado sin problemas, pero podría dar 
un error de Out Of Memory (Memoria 
Agotada) en cuanto intentes ejecutarlo. 

jeguramente querrás saber la forma en 
que el ordenador se entera de la posición 
de las variables y los “arrays”, dado que 
se encuentran en una zona distinta para 
cada programa. No lo hace mediante 
espejos, sino con “punteros”. De la 
misma forma en que utiliza una sola casi- 
lla para almacenar el valor de cada varia- 
ble, el ordenador usa otras casillas para 
almacenar direcciones (posiciones) de los 
límites de estas zonas, Dadas ciertas 
“rarezas” en el sistema (que explicaré más 
tarde), se necesitan dos células de memo- 
ria conjuntas para almacenar estas direc- 
ciones 

En una parte inferior de la memoria, en 
las posiciones 43 y 44, el ordenador alma- 


l 
ll MN 


cena la dirección apuntando al principio 
el texto del programa en Basic. Para que 
resulte más fácil, al encenderse el ordena- 
dor, se coloca el 2049 automáticamente 
en esta casilla. Cuando le dices al ordena- 
dor que ejecute un programa, lo primero 
que hace es ir directamente a esta casilla 
para enterarse de la posición donde 
empieza el programa, y luego lo empieza 
a ejecutar 

Justo al lado, en las posiciones 45 y 46, 
se encuentra la casilla donde el ordenador 
almacena la dirección del comienzo del 
almacenamiento de las variables. El 
ordenador no puede almacenar esta 
dirección hasta que no termine de cargar 
el programa y sepa dónde termina el texto 
en Basic. El almacenamiento de “arrays” 
siempre empieza al principio del almace- 
namiento de variables, para que el orde- 
nador pueda usar solamente un puntero 
(en las células 47 y 48 de la memoria) para 
marcar el punto donde termina una zona 
y comienza la siguiente, 

El ordenador mira las posiciones 49 y lp 


.. . . ..o. oa 
.. ........ ... ... er. ..o.. o e... ....o 


algunos de nuestros programas para los 
ordenadores personales 
zx commodore 


GESTION 
COMERCIAL 
MOVIMIENTOS DE ALMACEN 
ALBARANES FACTURAS 

RECIBOS REMESAS. 

Y OTROS LISTADOS 
CUENTES. 500 
ARTICULOS 1000 


CONTABILIDAD 


DIARIO BALANCES 

SUMAS, SALDOS y 

SITUA! 

LISTADOS APUNTES 
CUENTAS 750 
APUNTES 3515 


CONTROL STOK 

MOVIMIENTOS DE ALMACEN 

DIARIOS DE VENTAS Y 

COMPRAS INVENTARIO 

MINIMOS. 

ISTADOS DIVERSOS 
ARTICULOS 15 


¡NOVEDAD! 
COMPONENTES 


RECIBOS DE s 
CUOTAS JE REGRESION 


MANTENIMIENTO 


QUINIELAS 
EN DISC 
INTA 


LISTADO DE RECIBOS 
LISTADO ETIQUETAS 
Y OTROS 


AGENDA Y 
DIRECCIONES 
ENTRADA DIARIA CON 
OCUPACION DINAMICA 
JALIZACION E IMPRESION 


¡NOVEDAD! 
PELUQUERIAS 
CONTROL ALMACEN 
Y TIENDA 


CONTROL OPERARIOS 
Y ESTHETICIENNE 

COMISIONES. OPERARIOS | 
POR TRABAJO Y VENTAS 


EFECTOS Y REMESAS 
EMISION RECIBOS 
EMISION REMESAS 
ETIQUETAS CLIENTES 
LISTADOS 

CLIENTES 800 


ss 
LUSTADOS Y ETIQUETAS 
REMESAS 500 


FICHAS ARCHIVO 


ETIQUETAS 
DIRECCIONES 
PRECIOS 

EMB, 
OTROS PROCESOS 


3.500pts. 


AVD. CESAR AUGUSTO,72 
Tlfs.23 56 82 y 22 6544 


50003 -ZARAGOZA 


. 
... ... .....o 
.... ..........nk. .eo. noe. o... ...U.0000001. 

. 


Viaje al centro de tu Commodore 


D> 50 para saber dónde termina el almace- 
namiento de los “arrays”. No es necesario 
que comprendas estos punteros para 
poder realizar una programación simple 


0400009 
FERRE 


A RO 
AtUA Ao da lonas 
tau ini UES 
BET Fs SPCITME MO! 


U-duICOr DAT ILO 

UE MENOR QUNDES 0 

£01m0 ARRAYDIVIS 
WTC iSTR 


EUPE hise 
COMPLE 


Una zona a veces vacía, a veces llena de 
ira" o de RAM, una especie de tierra de 


nadi 


8. Zona de almacenamiento de las variables de 
s La letra Q indica que un cursor hacia 
arriba o hacia abajo ha sido añadido al “string” 


9. Tabla de comandos en B; 


10. Aquí se encuentran los mensajes de error. 
11. Area de control del Interface de Video VIC-IL. 
12. Sonido (registros del SID). 
0 
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en Basic, ya que el ordenador lo hace él 
solo. Pero podrías disponer de unos cuán- 
tos trucos si sabes cómo funcionan 


Hasta la página cero 


De momento, vamos a olvidarnos del 
texto en Basic y seguir viajando hacia la 
parte inferior de la memoria. Justo 


debajo de tu texto se encuentran ocho 
posiciones (2040-2047) para los punteros 
de los gráficos sprite. Aquí no hay nada 
interesante, dado que m no utiliza sprites 
Sin embargo, la zona justo debajo de la 
2024 se está usando mucho, y si te fijas 
bien en esta zona verás que la pantalla 
empieza a hacer unas cosas muy raras 

Lo que has encontrado ha sido el blo- 
que de memoria de 1.000 bytes reservado 
para la memoria de pantalla (1024-2023) 
El ordenador utiliza esta zona para repre- 
.ntar mensajes, gráficos, o lo que sea en 
la pantalla de tu televisión. Bajo circuns- 
tancias normales, si introduces cualquier 
valor de cero hasta 255 en cualquiera de 
estas 1.000 posiciones mediante un poke, 
aparecerá un carácter en pantalla 

Pero no intentes interpretar los caracte- 
res que ves flotando por la memoria de 
pantalla ahora —no tienen sentido— 
“Fisgón” está copiando y volviendo a 
copiar las zonas más altas de la memoria 
de pantalla en las zonas más bajas 
medida que tú vayas cambiando las direc- 
ciones. Juega un poco si quieres. Verás 
que si cambias las líneas una por una, se 
crean unos efectos muy diferentes de los 
que ves cuando esta zona se va pasando 
normalmente. La pantalla no volverá a 
comportarse de una forma normal hasta 
que no hayas pasado completamente por 
debajo de la memoria de pantalla 

Te evitará problemas si no te olvidas 
nunca que la memoria de pantalla y el 
texto en Basic viven puerta con puerta en 
el C-64. Si escribes un juego de gráficos 
donde tienes que introducir los caracteres 
en la pantalla mediante unos pokes, pero 
te descuidas y los caracteres de tu juego 
pasan más allá de la posición 2023 y 


entran en las posiciones por encima de la 
2047, harás uns pokes en el texto en Basic 
y tus instrucciones serán sustituidas por 
“basura”. Para que esto no te ocurra, lie- 
nes que tener cuidado de que no te salga 
ningún poke más allá de las posiciones 
1024-2023, o tomar otras medidas para 
proteger tu texto. 

Ahora estás muy cerca del final, y tu 
destino es la famosa “página cero”. 
Vamos a pasar volando por las posiciones 
256-1022, donde sólo se encuentra el 
espacio de trabajo y cosas raras para el 
propio ordenador, Desplázate hacia abajo 
hasta que el comprobador de direcciones 
indique que te encuentras en las posicio- 
nes 8-1007. No te preocupes si por des- 
cuido te desplazas “por debajo” de la 
posición cero. El programa envolve 
toda la memoria del ordenador y añadirá 
unos de sus bytes más altos a los más 
bajos 

La página cero, es decir, las 256 posi- 
ciones de memoria más bajas del ordena- 
dor, constituye una de las zonas má 
importantes y útiles. Resulta tan especial 
porque la dirección de cada posición es 
tan pequeña que cabe dentro de una sola 
célula de memoria, mientras que toda las 


13. RAM de color. 


14. Mensajes de encendido de Commodore. 


15. Una imagen parcial del kernal. (Tiene una 
longitud de SK). 


demás direcciones ocupan dos células 
(hablaremos de esto más adelante). 

Por este motivo, esta zona resulta ser 
tan importante para los programadores 
en lenguaje máquina —de hecho resulta tan 
valiosa que los fabricantes del ordenador 
han incluido en esta página unas zonas de 
almacenamiento especiales y muchas 
otras cosas que el ordenador necesita 
para sus propias operaciones—. A dife- 
rencia de la zona permanente de almace- 
namiento de texto, siempre hay actividad 
aquí. 

Sin embargo, esta zona es RAM, de 
modo que el ordenador puede usar unos 
pokes para introducir los nuevos valores 
en cualquier célula de la página cero. Para 
los curiosos y los que disfrutan con los 
experimentos, existen cuatro células (251- 
254) reservadas para que puedas hacer lo 
que quieras con ellas. “Fisgón” utiliza 
dos de ellas (251-252) para almacenar un 
puntero de “dirección original” para la 


subrutina en lenguaje máquina. 

Si quieres ver tu propia casilla, busca 
primero la línea de pantalla que empieza 
en la posición 248. Si haces un “scroll” 
hacia arriba o hacia abajo verás que cam- 
bia el carácter dentro de la posición 251. 
No confundas este espacio de almacena- 
miento con la zona más grande de 256- 
266 donde aparece un número decimal 
—<sto cs una pequeña zona de trabajo 
utilizada por el ordenador—. Todas las 
direcciones aquí abajo caben en una 
célula, de modo que la segunda mitad de 
nuestra casilla, 252, ahora contiene sola- 
mente un cero. 

En el próximo artículo, iremos de excur- 
sión por debajo de la página cero, hasta la 
parte superior de la memoria. Podrás ver 
el sistema operátivo ROM, las zonas para 
el color, el sonido y el manejo de periféri- 
cos, y finalmente terminaremos est 
diando un poco los pokes, peeks y los cál- 


culos del direccionamiento. 


1 REMA “VIC FISGON” k 

2 PRINTCHR$c147)CHR5(14) :POKE36879, 8 
¿20 : DIMARRAY (19): GOSUBIY 

3 LO=4 .HI=16 

POKE251,L0:POKE252,HI : 56828 : GETAS 


TFAS=CHR$<(17)THENGOSUB13 
IFAS=CHR$(145)THENGOSUB16 
TIFAS$=CHR$ (65) THENGOSUB19 
TFAS=CHR$ (80) THENGOSUBZS 
1FAS=CHR$ (98) THENGUSUB36 

10 TFA$*CHR$C(81)THENPRINTCHRSC147>CH 
R$(142) END 

11 G0TO4 

12 REM BAJA DIRECCION 

13 LO=LO-22' IFLOCOTHENLO=LO+256:HI=H 
1-1: IFHICOTHENHI=H1+256 

14 RETURN 

15 REM SUBE DIRECCION 

16 LO=L0+22; IFLO>255THENLOSLO-256:HI 
*HI+1: IFHI>25STHENHI=H1-256 

17 RETURN 

18 REM MUESTRA ADDRESS 

19 A=(HIN2S6)+L0: BH+50S: IFB>6S535TH 
ENB=B-65536 

20 PRINT"CHOMICORNICRYSONIADDRESS "A" 
CORSRLICSPCITO"B"CUHTI" 

21 GETAS:IFAS=""THENZL 

22 PRINTCHR$C19)"[228PCJ" 

23 RETURN 

24 REM HACE UN POKE 


VOYGU a 


AMBIACSPCIELESPCICONTENIDOCSPCIDE";: 
PRINT"[CRSRDIUNACSPCIDIRECCION" 


NUMEROS. 
PRIMEROCSPCILACSPCIPOSICION";:PRINT" 
[CRSRDIWESPCIELESPCISEGUNDOLSPCIEL" 
27 PRINT"[CRSRDIVALORLSPCIQUE [SPC IGU 
IERES" :PRINT"CCRSRDICOLOCAR. " 


ALGUNOLSPCIMAS?LSPCI 53851" 
29 GETAS: IFAS=""THENZI 

3u IFA$="S"THENZE 

31 PRINTCHR$5(147): RETURN 

35 REM ARRAY MARCADOR 


36 _ARRAW<Z)e INTOURNDC1IM255) 2241: 1F 
2=20THENZ=RG 

37 RETURN 

38 REM RUTINA C.M. 

39 IFPEEK(628)=160ANDPEEK(850)296THE 
NRETURN 

40 FORJ=82810850:READO:POKEJ, 0: NEXT 
41 DATA 160,0,177.251,153,0,38,200,2 
08,248 

42 DATA 230,252. 160,0,177,251,153,0, 
31,200 

43 DATA 208, 248,96 

44 FORJ=5482705635 :POKEJ, 32: NEXT 

45 REM MOVIMIENTO LATERAL 

46 FORJ=8T030:POKEZ51,J:POKE252,16:85 
VS828 :FORK=1T010:NEXTK,J 

48 RETURN 

43 REM <-FIN PROGRAMA EN BRSIC=-INIC 
IO DE VARIABLES> 


25 PRINT"CCLRICVEL 1CRVSONILSPCIPOKELSPCI 
UNCSPCIVALOR” :PRINT"CCRSRDICWHTICSHIFTCI 


26 PRINT"[CRSRDIENTRANDOCSPCIDOSCSPCI 
PRINT"CCRSRDICSHIFTEILESPCI 


28 INPUT"[YELICCRSRDICSHIFTEINTRALSPCI 
2USPCIVALORES";C,D:POKEC,D:PRINT"LWHTI 


1 REPIARMA MF TSCIOON 0 
* 


2 PRINTCHR$C147)CHR$(192) :POKES3281, 
0: POKESI280,0: 28: DIMARRAY(19) : GOSUB 
39 


3 PRINTCHR$(159) :LO=0:Hl=48 

4 POKE251,LO:POKE252,H]:8Y549152:GET 
AS 

5 IFAS$=CHR$(17>THENGOSUB13 

6 IFAS=CHR$(145)THENGOSUB15 

7 IFA$=CHR$(65) THENGOSUB1Y 

8 IFA$=CHRS(80) THENGOSUBZS 

9 IFA$=CHR$(98) THENGUSUB36 

19 IFAS=CHR$C(70)THENPRINTCHRS(147)CH 
R$(142) :END 

11 GOTO4 

12 REM BAJA 46 BYTES El FINAL DE LA 
MEMORIA 


13 LO=L0-48: IFLOCOTHENLUSLO+256:HI=H 
1-1: IFHICOTHENHI=H1+256 

14 RETURN 

15 REM SUBE 40 BYTES EL FINAL DE LA 
MEMORIA 

16 LO=L0+40: IFLO>255THENLU=LO-256:H1 
*HI+1: IFHI>235THENHI=H1-256 


, 
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_Viaje al centro de tu Commodore 


” 17? RETURN 

18 REM MUESTRA LA DIRECCION DEL BLOQ 
UE FUENTE 
19 As(HIAZI6I+LO: Bañ+999; IFB)6SSISTH 
ENBmB-65536 
20 PRINTCHRSC19)CHR$C18)"DIRECCIONES 
"CHR$(146) A; CHRS<157)CHR$(32)5 
21 PRINTCHR$C16)"[CRSRLI"CHR$(146);= 
B;¡CHR$(157)CHRSC32)CHRSC18) "[SPCIPUL 
SRISPCIUNALSPCITECLA" 
22 GETAS: IFAS=""THENZZ 
23 RETURN 
24 REM POKE EN UNA DIRECCION 
25 PRINTCHR$(147)CHR$<17)CHR5(158>CH 
R$(18)TABC4)"POKELSPCIENTSPCILALSPEI 
MEMORIA" 
26 PRINTCHRSCS)CHR$C17)"PUEDESCSPCIC 
AMBIARLSPCIEL E SPCICONTENIDOLSPCIDELSPCI 
CUALQUIER"; 
27 PRINTCHR$C(17)"POSICIONESPCIDELSPCI 
MEMOR IHCSPCIINTRODUCIENDOCSFCIDOS” 
28 PRINTCHR$(17>"VALORES. ":PRINT"LCRSRDI 
[SPCIPRIMEROLSPCIENTRACSPCILALSPCIDI 
RECCIONCSPCICOLSPCIALSPCI6ISIS)" 
30 PRINTCHRS(17)"UUELSPCIQUIERESCSPCI 
CAMBIAR. "CHR$C17)CHR$<17)CHR$(158) 
31 INPUT"ENTRALSPCIZCSPCIVALORES";C, 
D:POKEC, Di PRINTCHR$(17)CHR$(5) "OTROLSPCI 
MASCZSPCI"5 51 [SPCI" 
32 GETAS: 1FA$=""THENSZ 
33 1FASw"5"THENPRINTCHR$(158):G0TO31 


34 PRINTCHR$(159):RETURN 

35 REM DEFINE ELEMENTO DEL ARRAY 

36 ARRAYCZ)"INTORNDC 19255) :22+41:1F 
Z=20THENZ=0 

37 RETURN 

38 REM CARGADOR BASIC PARA LA RUTINA 
DE CODIGO MAQUINA 

39 IFPEEK(49152)=160THENRETURN 

40 POKEZ14,12:PRINT:PRINTTABC10)CHR$ 
(18)CHR$(5) " [Z5PCIUNCSPC IMOMENTOL25PCI 


41 FORJ=49152T1049200 : READO:POKEJ,Q:N 
EXTJ 


42 DATA 160,0,177,251,153,0,4 

43 DATA 200,208. 248, 230, 252 

44 DATA 160,0,177,251,159,0,5 

45 DATA 200, 208, 248,230, 252 

46 DATA 168,0,177,251,153,0,6 

4? DATA 200,208, 248,238, 252 

48 DATA 160,0,177,251,153,0,7 

49 DATA 200, 192,232. 268, 246,234 

5u REM LA SIGUIENTE RUTINA DE C.M. 
LIMPIA LA MEMORIA DE COLOR 

51 FORJ=492011049220: READG:POKEJ,Q:N 


EXT 
52 DATA 162,0,169,1,157,0,216 


53 DATA 157,8,217,157,6,218, 157 
54 DATA 8,219,232,288,241.96 
55 REM DATOS DE INSTRUCCIONES EN LA 


PANTALLA 

56 DATA 32,160,134,137,147,135 

57 DATA 143, 142.160.5,19, 20.1 

58 DATA 19,32,22.9,5.14,4,15 

59 DATA 32,12.1.32,13,5.13,15 

60 DATA 18,9,1,32,4,5,19.4 

61 DATA 5,49,50,50.56,36,32,32 

62 DATA 1.32.49,51,50,56,55,39 

63 DATA 1,39,32,61.32,1,.4,.4,18 

64 DATA 5.19,19,32,46,4,9,18,5,3,3,9 
,/15,14,41 

65 DATA 39,3,18,19,18 

66 DATA 39,32.61,32,13,15,22,5,18 

67 DATA 39,16,39,32.61.32,16 

68 DATA 15,11,5,39,6,39,32 

69 DATA 61,32,6,9,14,32 

70 REM ESCRIBE LAS INSTRUCCIONES 

71 FORJ=12288T013327 ¡POKEJ, 32: NEXT:F 
0RJ=5128105327 : POKEJ,32: NEXT 

72 FORJ=123421012678STEP41 : RERDO : POK 
EJ, Q:NEXT 

73 FORJ=12813T012841 : READO : POKEJ,Q: 


EXT 
A 3;READA: POKEJ. Qi 


N 

Se N 

poi AE 3004: READO :POKEJ,Q:N 

Xx 

e 346971013073: READO:POKEJ,Q:N 
K 

E FORJ=131417013150:READA:POKEJ,G:N 

T 

RS 322171013230: READO : POKEJ,0:N 
K 

79 POKE12288.42:POKE13287,42:FORJ=12 

328T0128805TEP48: POKEJ, 66: NEXT 

80 POKE12888,74:FORJw=128891012698:PO 

KEJ,67:NEXT 

81 POKE12927.73:F0RJ=129157012926:PO 

KEJ,67:NEXT 

82 FORJ=129671013247S5TEP48:POKEJ,66' 


NEXT 

PI SeaTon 263IBSTEP41:POKEJ, 223 
NEX' 

e FORJ=1238210126778TEP41:POKEJ, 95: 

NEXT 

85 REM SCROLL LATERAL DE INSTRUCCION 


ES 

86 FORJ=20T048 : POKEZ51,J:POKE252,48:5 
549152 :NEXTJ 

87 FORJ=4BTUBSTEP-1:POKEZ51.J:POKEZ5 
2,48: 5/549152: NEXT 

88 RETURN 

89 REMC--FIN DE PROGRAMA BASIC-=---PR 
INCIPIO VARIABLES> 


OFERTA ESPECIAL | 


en 48 horas 


54.990 ptas. 


(limitada) Entregamos en su domicilio 
toda clase de aparatos 
Commodore C-64 Oli a pectiod 
alo excepcionales 


Para Comercio 
hay condiciones muy, 
muy especiales. 


Consultenos! 


LOBERCIO, S.A. — Info-Import — Avda. Cánovas del Castillo, 4, 4? B — MALAGA — Telf. (952) 44 82 64/21 12 91 
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casa de 


software s.0. 


PRACTICALC 64 


CONTABILIDAD 64 
PROFESIONAL 


VERSION A: 24.550, 


P.VP= VERSION B: 29.500, 


PROCESADOR DE TEXTO 


35.000 caracteres, 240 columnas 
Versión diskette: 21.500,— 
Versión cartucho: 24.900,— 
(grabación de documentos en 
diskette y cassette) 


HOJA DE CALCULO 


2.000 coordenadas 

(funciones matemáticas, sort, gráficos...) 
Versión cassette C-64: 15.500, 

Versión diskette C-64: 17.500,— 
Versión cassette VIC-20: 11,500,— 
Versión diskette VIC-20: 13.500,— 


VERSION: A 


300 cuentas 
3.000 apuntes 


VERSION: B 


600 cuentas 
2.300 apuntes 


e Listado de diario 

+ Balance de situación y de Sumas y Saldos 
e Estractos de cuenta 

+ Cuenta de explotación, diario de cierre 

+ Mantenimiento de ficheros, utilitario... 
EQUIPO NECESARIO 

+ COMMODORE 64 y unidad de disco 

+ IMPRESORA MPS 801 (versión A y B) 

+ IMPRESORAS CENTRONICS (versión B) 


ADAPTADO AL PLAN GENERAL CONTABLE ESPAÑOL 


PROGRAMAS EN CASSETTE 


CONTABILIDAD PERSONAL 
CONTABILIDAD DOMESTICA 
CONTABILIDAD DOMESTICA (VIC-20) ... 
PERT. 

CALCULOS FINANCIEROS 
CALCULOS ESTADISTICOS ... 
FICHERO MONEDAS 

FICHERO SELLOS 

FICHERO BIBLIOTECA 
FICHERO AGENDA 
QUINIELAS ... 


DE VENTA EN TIENDAS 
Y DISTRIBUIDORES 
ESPECIALIZADOS 


casa de software, s.a. 
c/. aragón, 272,8.?, 6.2 
tel. 215 69 52 

08007 barcelona 


DESEO RECIBIR INFORMACION: 


Nombre y dirección 


PARA 
COMMODORE 64 


VIZAWRITE 64 


MANUAL EN CASTELLANO 


PROGRAMAS EN 
CARTUCHO + DISKETTE 


VIDEOCLUBS 64 


1.800 videofilms 

650 clientes por disco 

Saldo de cada cliente 

Altas y bajas videofilms 
Búsqueda videofilms/clientes. 


P.V.P.: 35.000,— 


ADMINISTRACION 
DE FINCAS 


30 inmuebles 
400 inquilinos 
Listado recibos 
Propiedad vertical 
Comunidades de propietarios 


P.V.P.: 35.000, 


LAPIZ OPTICO Y 
SOFTWARE GRAFICO 


P.V.P.: 12.500, 


JOY STICK DE 
PRECISION 


P.V.P. 2:950,- 


COMODORE 64 ES UNA MARCA REG. DE COMMODORE BUSSINES MACHINES, INC. 


Por Diego ROMERO 


con tu 
datassette 
para 

que 
entren 
esas cintas 
rebeldes 


n alguna ocasión habréis tenido la 
oportunidad de intercambiar pro- 
'gramas con alguien, pero al llegar a 
casa con la cinta grabada en otro datas- 
sette, ¡qué desilusión!, no hay manera de 
hacer entrar la cinta, unas veces da 
“LOAD ERROR”, otras se para antes de 
cargar el programa, o sólo una parte y s 
queda “colgao en las alturas”... por cierto 
al datassette no le iría nada mal... un 
repaso a sus ajustes 
Vamos a ver cuáles son las posibles 
causas de que las cintas no carguen en 
nuestros ordenadores 
Uno de los principales problemas que 
suelen aparecer es que la cinta se frene; la 
solución para eso suele ser como muchos 
saben, darle unos golpecitos contra la 
mesa, ¡pero sin pasarse!, a la cinta para 
colocar todas las vueltas al mismo nivel, y 
darle varias pasadas a la cinta de un lado 
a otro con las teclas REWIND y FAST 
FORWARD, de este modo conseguire- 
mos igualar la tensión y la posición de 
todas las vueltas de la cinta 
El otro problema suele ser la suciedad 
acumulada en la cabeza, su remedio es 
utilizar una de las cintas limpiadoras que 
están comercializadas para los equipos de 
alta fidelidad, ya que aunque el datassette 
tenga salida digital, su funcionamiento es 
similar al de los normales de sonido. 
También se podrían limpiar las cabezas 
de borrado y grabación/lectura con un 
algodón empapado en alcohol diluido, 
teniendo cuidado de no dejar restos de 
algodón enganchados en los mecanismos. 
Si todo lo anterior falla, pasamos a lo 
más delicado por llamarlo de alguna 
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manera, se trata del ajuste de la posición 
de la cabeza. Este ajuste no debe tocarse 
si no se trata de un caso de auténtica 
necesidad, pero algunas veces podemos 
comprar una cinta comercial que nos 
cuesta bastante dinero, la probamos y no 
funciona, la devolvemos a la tienda, nos 
la cambian por otra, perdemos tiempo y 
dinero, y finalmente nos damos cuenta de 
que es nuestro datassette el que no está 
alineado como los demás. Al igual que 
con cintas comerciales, nos puede suceder 
con cintas grabadas en otro datassette, la 
solución no es demasiado complicada, 
pero necesita realizarse con cuidado. 

Si tenemos el modelo antiguo de datas 
sette (el que era más alto y alargado), la 
cosa se complica, ya que no permite acce- 
der al tornillo de ajuste desde el exterior, 
y es necesario desmontar casi todo el 
datassette para acceder al ajuste. Pero con 
un poco de suerte tendremos el modelo 
nuevo (el bajito, cuadrado). En el frente 
junto al borde de la abertura para intro- 
ducir la cinta, podemos ver un agujero 
circular que permite introducir un pequeño 
destornillador para realizar el ajuste sin 
tener que abrir la unidad. 

Si disponemos de un osciloscopio, 
podemos colocar la punta de prueba 
tocando la placa de circuito impreso del 
datassette a través de un agujero que 
podemos localizar en la parte inferior de 
la unidad, a través de él tocaremos la 
pista que conduce la señal de lectura de la 
cabeza lectora/grabadora, esta señal es 
muy pequeña y deberemos ajustar la sen- 
sibilidad del canal vertical a unos 20 
mV./cm. (la señal debe ser de unos 80 mV. 


de pico a pico cuando tengamos una cinta 
grabada colocada en la unidad y el pulsa- 
dor play presionado). El ajuste deberá 
realizarse moviendo el tornillo hasta con- 
seguir la máxima señal en el osciloscopio. 

Aquellos que no dispongan de instru- 
mental, deberán realizar el ajuste por el 
“método experimental”, girando el torni- 
llo media vuelta en un sentido, probando 
si la cinta que deseamos cargar entra bien 
o la cosa va peor, si va mejor pero no del 
todo giramos otro poco, y asi hasta con- 
seguirlo. Si al girar fuese peor que al prin- 
cipio, deberemos girar el tornillo en el 
otro sentido y probar de nuevo. 1] 


NOTA IMPORTANTE 


Es necesario anotar los movimientos 
del. tornillo que vamos realizando para 
luego poder dejarlo en el mismo punto que 
estaba, ya que si lo dejamos muy cambiado 
no entrarán las cintas que fueron grabadas 
por nuestro datassette aunque lo hagan 
correctamente las otras. 

Algunas veces es posible dejar el tornillo 
en un lugar en el que cargan todas las cin- 
1as, si fuera posible, ese sería el ajuste 
correcto, ya que podríamos recuperar los 
programas que antes teníamos y los nuevos 
(comerciales o prestados). 

Finalmente conviene volver a sellar ese 
tornillo con una gota de laca de uñas, de 
este modo no se moverá el tornillo de 
ajuste. 

Espero que estos consejos ayuden a 
resolver los problemas con los intercambios 
de cintas y la adquisición de programas 
comerciales. 


¡INCREIBLES TARJETAS 
PARA COMMODORES 64 Y VIC-20 
DE 80 COLUMNAS! 


LA TARJETA DE 64K ES LA PERFECTA COMBINACION PARA LA TARJETA DE 40/80 COLUMNAS: 


- Puede escoger entre 22/40/80 columnas y obtiene 31743 bytes libres!!! 


- El sofware del EPROM de la tarjeta le permite utilizar todos los comandos de ficheros (OPEN, CLOSE, PRINT, INPUT, GET, SAVE 
and LOAD) con los 31232 Bytes de Memoria «oculta», lo que produce la sensación de qué hay 8 cassettes super rápidos 
conectados a su Vic-20 Imagínese.. menos de 1 segundo para guardar 28 K!!! 


e Tarjeta VIC-20 40/80 columnas 


e Tarjeta COMMODORE 64 
80 columnas 


e Tarjeta VIC-20 
Ampliación de memoria 
64 K- RAM 


e Slots de expansión 
para VIC-20 y 64 
de 2 y 5 para conexión 
de tarjetas 


¡ATENCION! 


DISTRIBUIDORES PARA TODA ESPAÑA 


PEDIDOS 
FERRE -MORET /A 


DISTRIBUIDORES 
Y PARTICULARES 


C/Tusset, 8 - ENTRESUELO. 2* 
Teléf.: 218 02 93 
08006 BARCELONA 


SOFTWARE 80 COLUMNAS 


Estos programas requieren las tarjetas distribuidas por FERRE-MORET 
S. A. Para el VIC-20, aunque los programas funcionan con un mínimo de 
16K, están diseñados para su utilización con la Tarjeta de 64K RAM. 
Capacidad de almacenaje ilimitada, Todos los programas se venden con 
un manual explicativo en castellano. 


AGENDA DOMESTICA 

Y DE NEGOCIOS (REF. ADD4080C) 

Incluye una función de búsqueda que identifica la totalidad o parte de los 
nombres, direcciones o números de telótono, es decir, el sistema permite 
identificar un nombre, dirección o teléfono, aunque únicamente se 
recuerde parte de la información. Si el usuario no recuerda una dirección 
concreta, llamando el nombre de la población, obtendrá todas las 
direcciones de esa población 


CONTROL STOCK 40 COL. (REF. st40C) 
CONTROL STOCK COL. (REF. st80C) 

Posee una función de búsqueda que permite visualizar productos 
concretos, especificando el producto, su descripción, lugar de almacena 
je, proveedor, dirección del proveedor, código de identificación del 
producto, precio de coste, precio de venta, cantidad (en paquetes, cajas, 
etc), valoración del stock, niveles máximos y mínimos de stock. Siademás 
dispone de impresora, se pueden obtener listados de productos 
específicos y listados de todo el almacén. 


PEDIDOS, ALBARANES, 

FACTURAS (REF. IDO4080CP) 

Se precisa la tarjeta de 64K RAM impresora. El programa permite imprimir 
encabezamiento con el nombre de la Empresa y su dirección y se puede 
elegir que el documento sea una Factura, Albarán o Pedido. Otros detalles 
del encabezamiento son: número de factura, fecha, número de pedido del 
cliente, referencia del cliente, etc. El programa permite la introducción de 
varios ITE's, especifica el producto, descripción, cantidad, precio antes de 
impuestos, precios con impuestos incluidos, gastos de envio etc Numera 
ción automática de los documentos. Permite hacer copias 


DIETARIO DOMESTICO 

Y DE NEGOCIOS (REF. HBD80CDP) 

Funciona con Cassette y Unidad de Disco. El programa pide la fecha e 
identifica cualquier entrevista concertada para ese día, detallando con 
quién es la entrevista, motivo de la misma, hora y lugar de la reunión, 
duración de la reunión, etc 

Permite la búsqueda diaria o mensual para identificar reuniones por la 
fecha, o lugar de reunión, o persona, tanto en el pasado como en el futuro, 
y además visualiza un calendario. 


CONTROL DE ALMACEN 

A 80 COL. (REF. ST80CDP) 

Los datos se pueden almacenar en cassette o Unidad de Disco 
incluye la descripción de los productos, su referencia o número, cantidad 
precio de compra, precio de venta, niveles máximo y mínimo de existen 
cias, pedidos minimos exigidos por los proveedores. nombre y dirección 
del proveedor, etc. Se dispone de una función de búsqueda. que permite 
visualizar todo el almacén, productos cuya cantidad exceda la máxima 
autorizada, productos con existencia por debajo del nivel mínimo requeri 
do, salidas de almacén, valor del stock. precios y márgenes. 


FICHERO DE PERSONAL 

A 80 COL. (REF. PRF8OCDP) 

Se necesita impresora. El programa incluye el nombre, dirección, teléto: 
no, edad, fecha de nacimiento, número, sexo, estado, número de Segur: 
dad Social, Cualificaciones, Historial de empleo, Estudios, sueldo, funcio: 
nes que realiza actualmente, programas de training a los que ha asistido, 
etc. Se pueden visualizar todos los datos o seleccionar los que se desean 
mediante la utilización de una función de búsqueda. Excelente para 
selección de personal, ya que permite identificación por nombre, pero 
también se puede buscar por una cualificación o caracteristica concreta, 
la edad, experiencia, etc. 


Traducido y adaptado por Eugenio Andrés YUSTE 


Jim GRUBBS (RUN EEUU) 


Pasaporte al mundo (1) 


Amplía tus horizontes sobre computadores 
con este artículo que os abrirá nuevas puertas a tí y a tu Commodore. 
La clave está en la puerta del usuario de tu Commodore. 


Este artículo describe cómo usar tu computador Commodore 
en una aplicación “real”. Esto incluye la conexión de tu computador 
a aparatos externos. En cualquiera de estas aplicaciones 
existe el riesgo, por pequeño que sea, de que el aparato externo dañe al computador. 
Vamos a describir las técnicas de interfaz necesarias, 
pero si no estás acostumbrado a la electrónica, no intentes conectarlo 
hasta no conseguir que te ayude alguien que sepa de esto. 
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jando por el mundo descubres 
V osas muy interesantes. Como, por 
ejemplo, qué hacer si no sabes ni 
remotamente de qué forma puedes llegar 
a tu destino. Se trata de aprovechar los 
lugares de conexión. Desde uno de esos 
lugares se te abren las puertas para acce- 
der a mil otros. Supón que, estando en un 
pequeño pueblo de la provincia de Barce- 
lona, quieres visitar a un amigo que vive 
en otro pequeño pueblo de la provincia de 
Madrid, A lo mejor en algún lugar puedes 
tomar un autobús a un pueblo del de al 
lado, luego ir en el carro de un campe- 
sino, convencer a alguien para que te lleve 
un poco y andar el resto del camino hasta 
otro pueblo en que... y no llegarás nunca, 
claro. 

En cambio, hay lugares que son como 
centros de comunicaciones. Una vez has 
llegado allí, sabes que te será muy fácil 
llegar a tu destino, Si quieres ver pronto a 
tu amigo, sabes que seguramente saldrá 
de tu pueblo algún autobús con destino a 
Barcelona. Y, una vez en ese centro de 
comunicaciones, sabes que puedes llegar 
a Madrid. Y aunque nunca hayas estado 
en Madrid, puedes estar seguro de que 
encontrarás un autobús que te lleve al 
pueblo de tu amigo. Estos centros de 
comunicaciones no existen sólo en los 
transportes, también la compañía telefó- 
nica y correos trabajan de esa forma. 
Incluso tu Commodore 64 o VIC-20 tie- 
nen incorporado un centro de comunica- 
ciones, la puerta del usuario. 

Da la vuelta a tu computador y obsér- 
valo por atrás, En el lado derecho verás 
un conector de doce patas y doble cara, 
con lo que tienes 24 conexiones en él. A 
través de este conector puedes contactar 
con el resto del mundo de los computado- 
res, por ejemplo usando un modem para 
que tu Commodore hable por teléfono. 
Además, puedes comunicarte con cual- 
quier aparato que tenga interfaz *RS232" 
(una cosa muy común aunque quizás te 
suene nuevo), puedes controlar las luces y 
tu equipo de música, encender y apagar tu 
aire acondicionado (si tienes) o la calefac- 
ción, tomar datos meteorológicos y hacer 
mil y una cosas que se te ocurran. Para 
que puedas controlar todas estas posibili- 
dades tendrás que enterarte un poco de 
cómo los Commodore leen y escriben en 
la puerta del usuario. Hay algunos regis- 
tros importantes que hay que conocer y 
un poco de aritmética de computadores 
ayudará bastante, Vamos a echarle un 
vistazo a esos registros para que puedas 
conseguir que hagan lo que tú quieres, 


Aritmética 
de registros 
El VIC-20 y el Commodore-64 dispo- 
nen de diversos registros de datos bidirec- 
cionales. Esto quiere decir que cada bit 
del registro se puede usar como entrada o 
como salida de datos. Incluso el joystick 
funciona a través de este tipo de registros. 
Los registros del VIC-20 se encuentran 
en las posiciones de memoria 37137 para 
la puerta A y 37136 para la puerta B. En 


el Commodore 64 los registros están en la 
posición 56576 para la puerta A y 56577 
para la puerta B. Pero, antes que nada, 
hay que decirle al computador cómo 
vamos a usar cada uno de los bits de estos 
registros (y, con ello cada una de las 
líneas de datos de la puerta del usuario), 
si como entrada o como salida). 

Para esto escribiremos un número en el 
registro de dirección de datos (data direc- 
tion register, DDR en la literatura 
inglesa) que se encuentra en la posición 
37139 (puerta A) y 37138 (puerta B) en el 
VIC-20 y 56578 (puerta A) y 56579 
(puerta B) en el C-64. En este artículo 
vamos a usar solamente la puerta B de 
ambos Commodores. 

(Recuerda que existe una diferencia 
significativa entre el C-64 y el VIC-20: el 
VIC-20 usa como circuito de entrada/sa- 
lida una VIA 6522 y el C-64 dos CIAS 
6526. Esto es importante en cuanto a la 
puerta de joystick, que es la puerta A en 
un VIC y la segunda CIA en un C-64, Por 
ahora, basta con que recuerdes que existe 
esa diferencia). 

No hay una orden especial para ajustar 
el DDR, si no que (¡cómo no!) hay que 
“pokear” en el registro el valor adecuado, 
una vez calculado con aritmética binaria. 

Calma, no te asustes, ni pases al artí- 
culo siguiente, ni te vayas a dar de comer 
al perro. Esto no es nada difícil. Hasta tu 
profe de matemáticas sabría hacerlo bien. 
Los DDR, como todas las tripas de tu 
computador, hablan en binario. Cuando 
ves la representación binaria de un regis” 
tro, ves a la derecha el bit menos significa- 
tivo (least significant bit, LSB) y a la 
izquierda el bit más significativo (most 
significant bit, MSB). El registro com- 
prende un solo byte (=8 bits) de memoria, 
así que numera los ocho bits de 0 a 7,0a 
la derecha, 7 a la izquierda. Para que veas 
lo fácil que es todo el sistema binario, te 
voy a explicar cómo se parece al sistema 
decimal, el sistema de números normal. 

Toma un número cualquiera. Por 
ejemplo 2546. 

2546=2X1.000+5X100+4X10+6X1 
4 (estás de acuerdo?) 

Fíjate en que vamos multip 

derecha a izquierda, cada ci 


veces lo que multiplicábamos la anterior. 
(1, 10, 100, 1.000...). Esto es así porque 
éste es el sistema de numeración del 10, Si 
en decimal las columnas de cifras se mul- 
tiplican, de derecha a izquierda por 1, 10, 
10X10, 10X10X10, 10X10X10X10..., en 
binario se multiplican por 1, 2, 2X2, 2X2X2, 
2X2X2X2, 2X2X2X2X2... Por ejemplo: 

1011B=1X1+1x2+0X2x2+1x2X2x2=11D 
(hemos empezado esta vez por la derecha) 

(B=Binario, D=Decimal) 

El número en sí es el mismo, pero su 
representación es diferente. Es lo mismo 
1011B pesetas que 11D pesetas, pero una 
es la forma de pensar del computador y 
otra es la tuya. Para conseguir que el 
computador “haga algo” necesitamos 
muchas veces meter un número en un 
registro y ese número es fácil saber cuál es 
en binario. Pero para “pokearlo” hay que 
dárselo al Commodore en decimal, ya 
'intonces sacas tu calculadora y 
cas y sumas como hemos hecho 


Para estos cálculos te será útil la tabla 
de potencias del 2: 
1 


7 Pl 
2x2 52 
2X2Xx2 =8 3: 
2x2X2X2 =16 4 
2x2x2x2x2 2 pe 
2X2X2X2X2X2 =64 =2"6 
2X2X2X2X2X2X2 =128 =2 "7 


(asi tendrás que multiplicar menos) 


El VIC-20 y el Commodore 64 disponen 
de diversos registros de datos bidireccionales. 
Esto quiere decir que cada bit 
del resgistro se puede usar como entrada 
o como salida de datos. Incluso 
el joystick funciona a través de este tipo 
de registros. 
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El poli 
controla el bit 

Una vez vistas estas reglas, ya podemos 
calcular los valores a introducir en el 
DDR para los diversos bits según quera- 
mos emitir o recibir datos a través de 
ellos. 

Vamos a escribir un byte, esto 
bits. Cada bit controla una lí 
entrada/salida (una pata del conector). Si 
el bit vale O, esa es una entrada, y si vale 1 
es una salida, Inicialmente, al enchufar el 
aparato, todas las líneas son entradas, Si 
es esto lo que quieres, no tendrás que 
¡cribir nada en el DDR. Si quieres tener 
también salidas, tendrás que escribir en el 
DDR un número que, puesto en binario, 
tenga a 1 los bits de las líneas que quieras 
que sean salidas y a O los que quieras que 
sean entradas. Recuerda: Una entrada > 
bit correspondiente a 1 en el DDR, una 
salida > bit correspondiente a 0 en el 
DDR 

Por ejemplo: De las ocho líneas (las 
numeramos 0... 7) queremos que sean 
todas entradas menos la 2 y la 4. Si po- 
nemos una S para salida y una E para 
entrada, el byte del DDR será: 


Nr, de bit A O AY 
entrada/salida E E E S E S E E 
0/1 0 Dd 110-1000 


Es decir, que tendremos que escribir en 
el DDR el número binario 000101008 
(B=binario). A nuestro Commodore se lo 
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Una vez vistas 
estas reglas, ya 
podemos calcular 
los valores 
a introducir en el DDR 
para los diversos 
bits según queramos 
emitir o recibir 
datos a través 
de ellos. 


tenemos que contar en decimal, pero ya 
hemos aprendido a hacerlo. Cogemos los 
bits uno por uno, comenzando por atrás 
vamos multiplicando por los números de 
la tabla anterior de potencias del dos. 


000 10100B= 

0X 14 140%2+ 1<4+0X8+1X16+0X32 
+0X64+0X128 

=44+16=20 


O sea que tenemos que pokear (4+16=20) 
en el DDR, Como ves, al escribirlo de la 
forma POKE 37138,(4+16) y no como 
POKE 37138,20 es más fácil ver que 
hemos puesto a 1 los bits 2 y 4 (puedes 
comprobarlo con la tabla del párrafo 
anterior) y a 0 los demás. 

El DDR, o “política de tráfico”, hace 
que la comunicación circule en la direc- 
ción correcta. Ya sólo queda escribir en 
los registros de datos los bits de salida 
(con un “poke”) y leer en los mismos 


Los relés los puedes adaptar tú mismo 
con una etapa amplificadora de un solo 
transistor, si sabes electrónica; 

y si no, a lo mejor puedes usar una de las cajas 
de relés que se venden para el VIC-20 
y el C-64. 


registros de datos el valor de los bits de 
entrada (con un “peek”), 

Ya hemos visto como “pokear” para 
poner los ocho bits de un byte al valor 
que queramos. Ahora nos queda separar 
los datos de entrada entre sí, El número 
que obtienes al hacer un peek contiene, en 
forma codificada, el valor de los ocho bits 
de datos. Ólo deseas saber el valor de 
uno de estos bits, no tienes más que poner 
una “máscara” sobre el registro, de forma 
que sólo veas el bit que deseas compro- 
bar. Esta máscara es como una plantilla 
que no deja ver más que uno o varios bits 
seleccionados de los ocho que hay en un 
byte. 

En el lenguaje BASIC del Commodore, 
la máscara s ” con la función 
AND. La máscara en si es un número: Es 
la potencia de dos del número del bit a 
comprobar. Si, por ejemplo, quieres 
comprobar el bit 3, de la tabla de poten- 
cias del dos ves que el número a usar 
como máscara es 273 = 8, La orden de 
programación podría ser: 

IF PEEK (37136) AND 8 = 
1 THEN GOTO 500 

Esta orden provocaria un salto a la 
línea 500 si la linea de entrada 3 estuviera 
a nivel 1 


Libre comunicación 


Armado con estos conocimientos, ya 
puedes comenzar a comunicarte desde tu 
Commodore 64 o VIC 20 con el mundo 
exterior. Supón que deseas que el compu- 
tador ponga en marcha una alarma 
cuando se abre la puerta principal y que a 
hora 


continuación imprima en pantalla Í 
a la que sucedió, Puedes conseguir 
comprobando si está abierta la puerta, 
para lo que puedes usar un simple inte- 
rruptor. 

Con el mismo método puedes utilizar 
tu Commodore como temporizador de 
programas para la televisión o para el 
video. Escribe un programa que tenga en 
cuenta todos los acontecimientos que 
quieras. Después usa unos relés como 
salida para encender o apagar la televi- 
sión o el video automáticamente cuando 
se cumplan las condiciones que hayas 
establecido. Los relés los puedes adaptar 
tú mismo con una etapa amplificadora de 
un solo transistor, si sabes electrónica; y 
si no, a lo mejor puedes usar una de las 
cajas de relés que se venden para el VIC- 
20 y el C-64 (consulta los anuncios publi- 
cados en COMMODORE WORLD). 

Si te interesa medir la velocidad del 
viento, la temperatura, o el nivel de 
líquido en un tanque, necesitas un conver- 
tidor analógico-digital. Si tu aplicación 
no exije demasiada precisión, puedes usar 
los convertidores incluidos en tu Com- 
modore, que se han disfrazado habil- 
mente como registros para paddles. 

Además te aconsejamos que leas la guia 
de referencia del programador de tu 
Commodore 64 ó VIC 20 si deseas más 
información sobre los circuitos integra- 
dos VIA y CIA. 
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Contabilidad 64 


Versión B 

9.500 

Tinto Espelt 

Propietarios y distribi 
Casa de Software 

Aragón, 272, 8, 6 

1007 Barcelona 

1. (93) 215 69 52 


Este paquete de contabilidad se compone de 
un cartucho y un disco, La configuración 
nima para su funcionamiento es un C-64 Ó 
una unidad de disco (ya incorporada en 

impresora. 

El primer punto a favor de este paquete es 
que puede utilizar muchos tipos de impresoras, 
desde las Commodore VCI515 y MPS80L, a las 
GP-10B, las EPSON y otras, con lo que quien 
prefiera utilizar otro tipo de impresora, que se 

te más a sus necesidades, puede hacerlo 
siempre y cuando la impresora pueda utilizar el 
protocolo Centronies. 

Entre las especificaciones del programa des- 
tacamos que puede controlar 699 cuentas con 
2.300 apuntes por diskette, y siempre se puede 
enlazar un disco con otro, pues los resultados 
anteriores son transferidos al nuevo disco que 
se utiliza 


No soy un experto contable, pero con ayuda 
de amigos que lo son y cono 1d, 
hemos utilizado el paquete y nos pareció muy 
bien y muy completo. Cualquier operación 
contable está tenida en cuenta, El ma 
presentado, conciso pero claro y perfe 
explicado. Mantenimiento de ficheros, listado 
de ficheros y utilitarios. 

Por otro lado, presenta la buena idea de dedi- 
car un apartado completo a Nociones de Con- 
tabilidad para los “novicios”, para quienes la 
contabilidad puede representar un cierto mis- 
terio. Igualmente la última sección del manual 
dedicada al Plan General Contable Español es 
una valiosa ayuda para expertos y novicios. 

tucho contiene el sistema de arranque 
'ograma, son 8 K de EPROM que contic- 
nen un máquina y el pro- 
grama cargador en basic. 

Cuando encendemos el ordenador pide que 
pongamos el disco, lo carga y arranca. Los 
programas están escritos en basic, pero con 
rutinas en código máquina, de este modo 
aprovecha las ventajas de los dos (sencillez y 
velocidad a la vez). En realidad son varios pro- 
gramas, uno contiene el menú principal, y los 
otros desempeñan las diferentes funciones 
(asientos, diarios, consultas de cuentas, extrac- 


CONTABILIDAD 
64 


600 cuentas 
2.000 apuntes 


impresora paralelo ctronics 


CONTIENE, 


Monval de usuario 
odenid dor dorirentelos der contabiidod 
Plan General Contoble Español 


PARA El ORDENADOR 
COMMODORE -64 


IAMAAAAMAVA AA AAA AMA A YAA 


ll 


Los, sumas, saldos, situación y cierre, cuentas 
de explotación, balances, mantenimiento de 
ficheros, listado de ficheros y un grupo de 
utilitarios). 

Me pareció interesante la incorporación de 
los utilitarios que permiten copiar el disco, 
recuperar ficheros, etc, Expecialmente pen: 
sando en los datos que se pierden a veces en las 
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ALICANTE 
+ Casa Wagner. c/ Juan Carlos 1, 37. Elda. 
Teléfono: (965) 39 03 96. 
e Ferretería Progreso. c/ General Jordana, 28. 
Elda. Teléfono: (965) 38 11 45. 
BADAJOZ 
e Control Sistemas. Avda. Santa Marina, 25A. 
Teléfono: (924) 25 88 00. 
BARCELONA 
+ Computer Service. Avda. Abad Marcet, 325. 
Tarrasa. Teléfono: (93) 788 63 77. 
+ Computerhard e/s. Jaime, 48. Granollers. 
Teléfono: (93) 870 09 19. 
e Gadesa. Les Valls, 12-14. Sabadell. 
Teléfono: (93) 725 25 43. 
+ Librería Emilia Pérez Radua. c/ Mayor, 35. 
Castellar del Vallés. Teléfono: (93) 714 89 51. 
e Librería Michel. Ronda Guinardo, 1. Sardañola. 
+ Mozart. o/ Jaime L, 145. Mollet. 
Teléfono: (93) 593 75 01, 
+ Novo Digit. c/ Aragón, 472, Tel. 246 27 75. 
+ Sonimóvil. c/ Alcalde Armengou, 53. 
Manresa. Teléfono: (93) 873 78 17. 
+ Tronic. Bigay, 11-13. Tel.: (93) 212 85 96 
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BILBAO 

+ Bilbomicro SA. c/ Aureliano Valle, 7. 
48010 Bilbao, Teléfono: (94) 443 43 51 

BURGOS 


..A.c/ Madrid, 4. Teléfono: (947) 20 46 24. 
CADIZ 
* Video Computer. Coman 
Ortega, 59. Algeciras. Tel. 
CANARIAS 
e Relax. Rambla de Pulido, 85. Santa Cruz de 
Tenerife. Teléfono: (922) 28 37 05. 
CIUDAD REAL 
trónica Turrillo. c/ Pedrera Baja, 7 
Teléfono: (926) 22 38 67. 


Gómez 
(956) 65 39 02 


.. e/ Palomar, 22 Bajo. 
Teléfono: (981) 27 26 54 

+ Photo Copy. c/ Teresa Herrera, 9 
Teléfono: (981) 21 34 21. 


Teléfono: (981) 23 07 49 


tomero Donallo, 25. 
:go de Compostela. 


+ GestyComputer. Avd: 

Tel.: (981) 59 87 54. S; 
GERONA 

+ Digit Informática. c/ Avda. 11 Setembre, 7. 
Olot. Teléfono: (972) 26 94 01. 

hi 3. Olot. Tel.: 26 36 63 

* Regiscompte S.A. c/ Emilio Grahit, 17 Bis. 

Teléfono: (972) 21 99 88. 


HUELVA 
+ Computerlog, S.A. c/ Tendaleras, 15 
Teléfono: (955) 25 81 99. 
IBIZA 
e Kelson. Plaza España, S/N. San Antonio 
Abad. Teléfono: (971) 34 13 09. 
LEON 
+ Logdata. c/Burgo Nuevo, 4 
Teléfono: (987) 20 42 89 
e MicroBierzo. c/ Carlos 1, 2. 
Teléfono: (987) 41 74 21. (Ponferrada) 


aparte de venderse generalmente en kioscos, se encuentra asimismo 
a la venta en las siguientes distribuciones de Commodore y librerías. 


ips. e/ Puerto Rico, 21-23. 
ctrónica Lugo. c/ Barquillo, 40. 
brería García Peña. e/ Cavanilles, 52. 
+ Micromundo, SA. El Zoco, Majadahonda. 
Teléfono: (91) 638 13 89. 
e País de los Microordenadores. Bravo 
Murillo, 18. Tels.: (91) 446 33 17 - 446 37 12. 
MALAGA 
+ Informática Martínez SA, e/ Cristo de la 
Epidemia, 90. Teléfono: (952) 26 15 60. 
MURCIA 
e Proc Ronda Norte, 27. 
Teléfono: (968) 23 94 49. 
PAMPLONA 
* Microordenadores Ramar. c/ Navarro 
oslada, 7. Teléfono: (948) 23 72 80 
SALAMANCA 
+ Compusoft. e/ Arco, 1. Tel.: (923) 21 59 93. 
SAN SEBASTIAN 
ate, 6. 


Teléfono: (943) 42 35 10 
SANTANDER 


e Papelería Mora. c/ Santa Cruz, 5. Ecija 
Teléfono: (954) 83 14 80. 
TARRAGONA 
+ Oficomplet. Plaza de la Cinta, 6. Tortosa. 
Teléfono; (977) 44 14 50, 
+ Comercial Informática de Tarragona SA. 
e/ Gasómetro, 20. Teléfono: (977) 23 08 53. 
VALLADOLID 
+ Chips + Tips, S.A. c/ Juan de Juni, 3. 
Teléfono: (983) 33 40 00. 
e Kent Electronic, c/ Duque de la Victoria, 13. 
Tienda, 15. Teléfono (983) 47 58 07 
ZARAGOZA 
+ ADA Computer. Centro Independencia. 
P? Independencia, 24-26. Tel.: (976) 29 85 62. 
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En el número de marzo de “Commo- 
dore World” publicamos un programa de 
utilidades para disco para el VIC-20 lla- 
mado DISK-O-VIC, Resulta ser un pro- 
grama muy útil que facilita mucho el 
manejo de la unidad de discos con el VIC- 
20. Yo quería conseguir lo mismo para el 
C-64, y por lo tanto decidí convertir el 
programa DISK-0-VIC en DISK-0-64 

El principal problema era convertir las 
direcciones de las llamadas al sistema del 
DISK-O-VIC en las direcciones adecua- 
das para el DISK-O-64. Las llamadas 
Kernal resultaban sencillas, dado que son 
las mismas para los dos equipos y se han 
publicado en varios manuales de referen- 
cia. El verdadero problema eran otras 
llamadas al sistema como Warmstart, 
Reset y Printstring. 

Busqué en las ROM del C-64 para 
encontrar las rutinas que necesitaba. La 
Tabla | presenta los nombres de variables 
del listado original del DISK-O-VIC que 
necesitan cambiarse, junto con las nuevas 
direcciones del sistema para el C-64. Una 
vez conseguidas las direcciones correctas, 
la conversión en sí resultó bastante sen- 
cilla. 

Primero, encontré las llamadas que se 
tenían que modificar en los mismos sitios 
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Cal OVERHULS 


(RUN EEUU) 


Traducido por Valerie SHANKS y Adaptado por Diego ROMERO 


que se situaban en el listado original y 
localicé sus equivalentes en el volcado 
hexadecimal. Después, tuve que estable- 
cer los cambios necesarios para la panta- 
lla de arranque. A continuación cargué el 
programa DISK-O-VIC, realicé los ca 
bios necesarios con un monitor y salvé 
una copia de DISK-O-64 con la misma 
longitud y las mismas capacidades que 
DISK-O-VIC 


m- 


Entrar el programa 

Se necesita un monitor de lenguaje 
máquina para entrar el programa DISK- 
0-64 del listado del volcado hexadecimal 
Después de cargar y entrar el monitor, se 
empieza a entrar el programa en la direc- 
ción $0801 y se continúa hasta SOD2F. A 
continuación utiliza el método adecuado 
para salvar DISK-O-64 en tu monitor. Si 
utilizas el monitor del C-64 de Commo- 
dore, tienes que teclear 

S*“DISK064”,08,0801,0D2F 

Asegúrate de que hayas utilizado $0801 
como la dirección inicial para que lo pue- 
das cargar después como cualquier pro- 
grama en Basic. Ahora dispones de una 
copia de DISK-0-64 que puede ser car- 
gado y salvado como cualquier programa 


Las operaciones con la unidad de 
discos dan mejor resultado cuando 
utilizas esta versión para el C-64 


del programa DIS-O-VIC 


publicado en el número 2 de 
marzo de “Commodore World”. 


Añade 13 Comandos 
Relacionados con Disco a 
tu C-64 


en Basic. A continuación, sales del moni 
tor, tecleas SYS64738 en el modo Directo, 
o bien apagas y enciendes el ordenador 

Ahora puedes cargar y ejecutar DISK- 
0-64 igual que cualquier otro programa 
Simplemente teclea LOAD 
4,8 para cargar el programa 
en el ordenador y a continuación teclea 
RUN. Si todo funciona como es debido, 
aparece la pantalla de arranque, y el pro- 
grama DISK-O-64 se encuentra en su sitio, 
protegido en la parte superior de la 
memoria 


La Tabla 3 presenta los nuevos coman- 
dos. Si lees el artículo original sobre 
DISK-O-VIC, verás que todos los co- 
mandos son iguales para el DISK-0-64 
Utiliza un disco para experimentar y 
prueba cada comando para poder fami- 
liarizarte con ellos (además de asegurar 
que todo funciona bien, y no existen erro- 
res de teclear). 


Modificaciones de DLoad/DSave 

Había una cosa que me molestaba en el 
programa original DISK-O-VIC. No 
podía utilizar DLoad/DSave en un pro- 
grama híbrido (es decir, un programa 
escrito en Basic y lenguaje máquina). 


Parecía que se cargaba y se salvaba 
correctamente, pero me di cuenta de que 
el programa salvado tenía menos bloques 
que el programa original. 

El verdadero problema era que no me 
daba cuenta de lo que estaba pasando 
hasta que un día el programa híbrido 
DISK-0-VIC no quería ejecutarse, y lo 
tuve que volver a teclear todo. Con todo 
hay que decir que esta restricción fue 
mencionada en el artículo, y el fallo fue 
mío al no darme cuenta, 

Descubrí que el problema venía de la 
rutina DLoad en el programa DISK-0- 
VIC. Esto ha sido modificado en el pro- 
grama DISK-0-64 para que DLoad/D- 
Save puedan ser utilizados con programas 
híbridos con tal de que se carguen como 
un programa normal en Basic, es decir, 
LOAD“NAME”,8. 

La única excepción es el comando 
Append, que puede ser utilizado para 
añadir solamente programas escritos en 
Basic, y no programas híbridos, En reali- 
dad, la necesidad de añadir las partes 
escritas en Basic de programas híbridos 
no es muy frecuente (yo no lo he hecho. 
nunca), 

La Tabla 2 presenta los cambios para 
editar el programa original DIS-O-VIC 
para los que quieran modificar sus copias 
del programa. 


Tabla 1 

Modificaciones de las rutinas para el 
DISK-0-64 sobre el listado del DISK-0- 
VIC 


RUTINA. VvIC_ 64 
WARMST  C474 E386 
WAIT C48C A48C 
INFIN C49F A49F 
CHAIN 0533 A5S33 
CLR C659 A659 
INTEGR C96B A96B 
PSTRNG CBIE ABIE 
ERROR CF08 AFO8 
PRLINE DDCD BDCD 
CHROUT E742 E716 
RESET FD22 FCE2 
Tabla 2 


Modificaciones en el programa DISK-0- 
VIC para los comandos DLoad/DSave 
con programas híbridos. 
DIRECCION 
HEXADECIMAL 
DEL VIC 


NUEVO 
VALOR 
HEXADECIMAL 


126E 86 

126 2D 

1270 34 

271 2E 
1272-1278 ÉA 
127€ 20 

127D 33 

127 C5 

Tabla 3 


Explicación de los Comandos del pro- 
grama DISK-0-64. 


APPEND (Agregar). —Este comando 
permite que un programa en Basic que se 
encuentra en disco se agregue al final de 
un programa en memoría con números de 
línea más bajos. Su sintaxis correcta es: 


“APPEND “NOMBRE” 

CATALOG (Catalogar).—Tecleas CA- 
TALOG para poder leer el directorio 
contenido en el disco sin destrozar el pro- 
grama en la memoria. 

COLLECT (Recoger).—Esto realiza 
una operación de validación, es decir, 
ordena el disco y hace que todos los blo- 
ques no utilizados sean disponibles. 

DLoad.—Esto funciona igual que el 
comando normal de Load, pero no hace 
falta teclear ,8. Además, antes de cargar, 
inicializa el disco, y después lo verifica. Se 

ueden cargar tanto los pas en 

jasic como los programas híbridos siem- 

re y cuando se carguen los programas 

íbridos de la misma forma que los pro- 
gramas en Basic 

DSave.—Igual que DLoad, sino que su 
función es la de salvar los programas en 
disco 

HEADER.—Este comando formatea 
el disco. Dado que todos los datos 
destruidos, te pregunta “ESTAS SE 
RO? SI O NO”. El sintaxis correcto es: 
HEADER“NOMBRE NUEVO”, Ixx, Tie- 
nes que emplear ,1. Las letras xx fepresen- 
tan cualquier tipo de identificación que le 
quieras poner (uno para cada disco). 


INIT.—Esto es igual que OPENIS,8, 
15.*I”:CLOSEI1S en Basic. 

KILL.—Esto es igual que apagar y vol- 
ver a encender el ordenador o teclear 
SYS64738. 

OFF.—Este comando apaga el DISK- 
0-64, pero este y cualquier otro programa 

uedan en la memoria. El programa 

ISK-0-64 hace que el Basic vaya más 
despacio, asi que es mejor quitarlo si te 
interesa la máxima velocidad. Para volver 
a encenderlo, teclea: SYS256*PEEK(56)+ 
PEEK(55). 

RENAME.—Te permite volver a nom- 


brar un programa que ya existe en disco. 
Su sintaxis correcta es: RENAME*NOM- 
BRE ANTIGUO”TO“"NOMBRE NUE- 


SCRATCH.—Con este comando se 
puede borrar un programa del disc 
equivalente en Basic es OPENIS,8,1 
:NOMBRE”:CLOSEIS. También 
gunta “ESTA JRO? SI o NO”. Su 

SCRATCH“NÓM- 


(Enviar). —Este comando te 
permite enviar al disco cualquier comando 
que se pueda enviar en Basic; su equiva- 
lente en Basic es OPENIS,8 
¿CLOSEIS, donde xxxx repre: 
mensaje que envías. Su sintaxis 
e JD "xxxx" 

STATUS (Estado).—Con este comando 
se puede visualizar el estado del disco sin 
tener que ejecutar un programa, Cuando 
surge un error en disco, teclea STATU 


Listado del volcado hexadecimal 


D6u0 VB 40 08 ul ue 99 
eses 11 2 3 ) 
0810 44 49 53 4B 21 4F 2D 36 
0818 34 11 22 As y 2 
UEZO 43 36 34 20 44 49 53 4B 
15828 20 43 9F 4D 4D 41 4E 44 
0830 20 50 41 43 4 41 47 45 
838 11 22 A6 32 38 29 3B vu 
0548 7A 08 42 BA 99 22 42 59 
:0848 20 43 41 40 20 
:B854 52 48 55 40 53 
0558 22 A6 31 38 29 22 46 52 
:BB60 4F 4D 20 44 49 53 4B 4F 
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HR 


EN VALLADOLID 


KENT ELECTRONIC 


C/Duque de la Victoria, 13 
Teléf. (983):39 65 84 


SPECTROVIDEO 


programas profesionales, juegos 


APRENDE A PROGRAMAR e 


e Cursos completos y trimestrales 


e Clases muy reducidas, horario flexible 


e Profesores capacitados. 


e Cada alumno dispondrá de un ordenador 


NUEVOS CONCEPTOS 


C/ Magallanes, 1-12A - VALLADOLID 


Teléf. (983) 47 58 07 


se PASCAr 


to 
Co ¿ora 


NUEVOS 


CONCEPTOS 
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MANUAL 


DEL MONITOR DE 
CODIGO MAQUINA 
PARA EL C-64 
HES-MON (11) 


G=Ejecución 

Empieza la ejecución de un programa 
en código máquina a partir de la 
dirección almacenada en el registro PC 
(contador de programa) 

Ejemplos: 


:I HESMON va a la dirección que 
indica el Contador de Programa PC (ver 
R) y empieza la ejecución del código 
máquina allí existente, 

«G 3000 

El HESMON pone la dirección $3000 
en el PC y empieza la ejecución del código 
máquina a partir de esta dirección. 
H=Busca en memoria 

Búsqueda de bytes que tengan cierto 
valor, El HESMÓN visualiza las direc- 
ciones que contienen un valor (o valores) 
determinado en una zona de memoria 
concreta 

Ejemplos: 

.H C000 D000 20 D2 FF 

El HESMON chequea los bytes de 
memoria comprendidos entre $C000 y 
$D000 buscando la secuencia de bytes 
$20, $D2 y SFF (JSR $FFD? en lenguaje 
ensamblador). Si encuentra tres bytes 
consecutivos que cumplan esta condición, 
visualiza la dirección del primero de ellos 
y continúa buscando, hasta llegar al 
límite indicado (en este caso $D000). 

.H C000 D000 “READ” 

El HESMON chequea los bytes de 
memoria comprendidos entre $C000 y 
$D000 buscando la secuencia en caracte- 
res ASCII correspondientes a “READ”, 
visualizando las direcciones en donde la 
encuentre. La búsqueda puede interrum- 
pirse pulsando la tecla STOP. 
I-Contenido ASCII 

Visualiza el contenido en hexadecimal 
y en ASCII de una zona de memoria. Por 
ejemplo: 

«1 F000 F020 
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Si no se especifica dirección final 
(segundo parámetro) el HESMON visua- 
liza hasta el final de la memo 
o hasta que se pulse la tecla 

Salto a subrutina 
cuta una llamada a una subrutina y 
al programa principal con el modo 
W desactivado —durante la ejecución de 
la subrutina— sólo cuando está en modo 
W. Supongamos que estamos en modo W 
y en la pantalla se muestra el fragmento 
de código: 
147F LDA 4800 
1481 JSR $A2C7 
J 

Se ejecuta la rutina que se inicia en 
$A2C7. Cuando encuentra un RTS, vol- 
verá al modo W 
L=Load 

Carga de zonas de memoria desde disco 
o cassette. Ejemplos: 
L “RAM TEST” 01 

Carga desde el cassette el programa 
llamado “RAM TEST”. 
.L “O:RAM TEST” 08 

Carga desde el drive O del periférico 8 el 
programa llamado “RAM TEST”. Los 
programas se cargan en la misma direc- 
ción de memoria en la que estaban 
cuando fueron grabados. 


M=Contenido hexadecimal 
Visualiza el contenido de una zona de 
memoria en formato hexadecimal. Los 
bytes visualizados pueden ser modifica- 
dos directamente situando el cursor sobre 
ellos, efectuando la modificación, y pul- 
sando RETURN. Por ejemplo 
.M 1000 1005 
.: 1000 43 OD OA 43 42 
.: 1005 0D 0A 7F 7F 7F 
N=Transferencia de contenido 
Traslada código máquina de una zona 
de memoria a otra. Se le puede indicar 
que las instrucciones de tres bytes, que 
apuntan a direcciones de memoria abso- 


lutas (JSR SFCCO, CMP $7540, X...) 
cambien su valor adaptándolo a la nueva 
posición que ocupen, o bien conserven 
inamovible el que ya tienen 

Ejemplos 
.N 7000 77FF 1000 0400 8000 

Traslada el código máquina compren- 
dido entre $7000 y $77EF a partir de la 
dirección $1000 (hasta $17FF). Los dos 
últimos parámetros indican que las ins- 
trucciones de tres bytes que apunten a 
una dirección comprendida entre $0400 y 
$8000 deben cambiar su valor y adaptarse 
a la nueva posición del código máquina, 
por lo que en este caso se le restará $6000 
aci una. Las instrucciones de tres 
bytes que apunten a otra dirección que no 
sea la comprendida entre $0400 y $8000 se 
trasladarán manteniendo intacta su di- 
rección. 

Este comando se detiene cuando 
encuentra un código de ensamblador 
erróneo (lo visualiza para indicar dónde 
se ha parado). 

.N 7000 77FF 0400 8000 W 

El parámetro “Wal final indica que se 
está trasladando una tabla de bytes 
WORD, por lo que todas las direcciones 
(tomadas de dos en dos bytes) cuyo valor 
esté comprendido entre $0400 y $8000 se 
adaptan a la nueva posición de memoria 


O=Desviación de salida 

Este comando es el equivalente en 
MLM del comando BASIC CMD. Este 
permite al HESMON desviar la salida de 
pantalla hacia la impresora o hacia la 
unidad de disco. 

Por ejemplo: 

008 02 “O:TEST" 

Donde 08 es el número de periférico (04 
para la impresora) y 02 es la dirección 
secundaria (normalmente 02 a OE para la 
unidad de disco). 

Todos los parámetros son opcionales. 
Si Vd. escribe sólo O automáticamente 


HESMON abrirá el canal de impresora. 
Si vuelve a escribir O, volverá a las condi- 
ciones normales, cerrando el canal de 
comunicación con la impresora. 
P=Copia de pantalla 

Este comando es una versión limitada 
del comando O. Copia el contenido de la 
pantalla en la impresora. Los parámetros 
de este comando son los mismos que para 
O, excepto que se desactiva automática- 
mente porque copia exactamente el con- 
tenido de la pantalla. 

NOTA: P no copiará gráficos de Alta 
Resolución o Sprites. 

Q- Ejecución con puntos de rup- 
tura 

Empieza la ejecución de un programa 
en código máquina a partir de la direc- 
ción que indica el PC (contador de pro- 
grama). La ejecución es más lenta que la 
del comando, G, pero el Q puede dete- 
nerse mediante puntos de ruptura habili- 
tados por el comando B. 

Ejemplos: 

Inicia la ejecución del código máquina 
a partir de la dirección que indica el Con- 
tador de Programa (PC). 

.Q 1000 

Asigna al PC el valor $1000 y empieza 
la ejecución desde esta dirección. 
R=Contenido de registros 

Visualiza el contenido de los registros 
según la siguiente clave: 

PC: Contador de programa. 

SR: Registro de estado. 

AC: Acumulador. 

XR: Registro índice X. 

YR: Registro índice Y. 

SP: Puntero del stack. 

Los valores de los mismos pueden ser 
cambiados situando el cursor sobre ellos 
y pulsando RETURN. 

Ejemplo: 

R 


PC SR AC XR YR SP 

5 0000 01 02 03 04 05 

Puede usarse este comando para asig- 
nar los valores del contador de programa, 
acumulador e índices antes de ejecutar 
programas mediante G, Q o W. 
RB=Quitar puntos de ruptura 
iminar los puntos de ruptura estable- 
cidos con el comando B. Solamente hay 
que especificar el punto de ruptura y será 
eliminado. 

Por ejemplo: 
«RB 1050 

El punto de ruptura existente en la 
posición $1050 ha sido eliminado. 
S-Save 

Grabación en disco o cassette de zonas 
de memoria. Ejemplos: 
.S “PROGRAMA” 01 0800 0C81 

Graba en el cassette, bajo el nombre de 
“PROGRAMA”, el contenido de los 
bytes comprendidos entre las direcciones 


$0800 y SOC80. Obsérvese que la última 
dirección a escribir en el periférico es la 
última más uno en el comando. 

S “O:PROGRAMA” 08 0800 0C81 

Graba en el drive O de la unidad de 
discos cuyo número de periférico es 8, 
bajo el nombre de “PROGRAMA”, el 
contenido de los bytes comprendidos 
entre las direcciones $800 y $0C80. 
T—Transferencia de 

Traslada el contenido de una zona de 
memoria de un lugar a otro de la RAM. 
Por ejemplo: 

«T 1000 1100 5000 

Toma los bytes comprendidos entre 
1000 y $1100 y los sitúa a partir del 
$5000. 

Este comando no cambia ninguna 
dirección aunque se traslade código 
máquina, a diferencia de N. 

U-Test de la RAM de color 

U no necesita parámetros. Prueba la 
RAM de color e imprime OK cuando ha 
ejecutado el test. Si detecta un byte defec- 
tuoso, imprimirá su dirección. 

V-Test de RAM 

Este comando prueba un segmento de 
RAM. HESMON irá comprobando cicli- 
camente la sección de RAM especificada 
hasta que se pulse la tecla STOP (puede 
ser necesario pulsarla más de una vez). 
Cada vez que HESMON completa el test 
de ción de RAM en pruebas, impri- 
mirá un “.” para que pueda ver que el 
comando está en acción. 

Si detecta un fallo en una posición de 
memoria, imprimirá la posición de me- 
moria seguida de un número binario que 
muestra el dato que no ha sido guardado 
correctamente. Los bits de este número se 
muestran de izquierda a derecha (del bit 
más significativo al bit menos significa 
tivo). Los bits que presentan problemas se 
muestran con inversión de color. 

Por ejemplo: 

«Y 0400 0800 

Verificará la RAM entre las direcciones 
$0400 y SO800 hasta que pulse la tecla 
STOP o ocurra un fallo. 
W-Ejecución paso a paso 

Ejecuta una instrucción de código 
máquina a partir de la dirección indicada 
por el PC, mostrando el contenido desen- 
samblado de la próxima instrucción a eje- 
cutar. Al mismo tiempo también muestra 
el valor de los registros (R). 

Ejemplos: 

w 


Ejecuta la instrucción apuntada por el 
PC, muestra los valores de los registros, 
visualiza el desensamblado de la siguiente 
instrucción, y aguarda a que se pulse una 
tecla para ejecutarla. En el caso de que se 
pulse una tecla que normalmente tiene 
repetición (la barra espaciadora, por 
ejemplo) la ejecución se realizará al ritmo 
de esta repetición. .W.1000 


Pone la dirección $100 en el PC y eje- 
cuta la instrucción, muestra los valores de 
los registros, visualiza el desensamblado. 
de la siguiente instrucción, y aguarda 
antes de ejecutarla. 

X-Salida al Basic 

Sale del HESMON y pasa el control de 
C-64 al intérprete BASIC, Este comando 
tiene dos formas de actuación: La pri- 
mera “XC” tiene el mismo efecto que 
desconectar el equipo excepto que el 
HESMON continúa conectado y puede 
transferírsele el control pulsando la tecla 
RESTORE. La segunda forma —“X"— 
se comporta de forma similar a la pulsi 
ción simultánea de las teclas RUN/STOP 
y RESTORE en BASIC, no obstante su 
primera salida del HESMON debe hacerla 
con “XC”, de lo contrario el BASIC fun- 
cionará mal. Una vez en BASIC para con- 
seguir el mismo efecto que con RUN/ 
STOP y RESTORE sin HESMON, pulsar 
RESTORE, pulsar “X” y RETURN. 

% Conversión decimal a 
hexadecimal 

Este comando imprime el equivalente 
hexadecimal de un número decimal. Si el 
número decimal es negativo mostrará el 
complemento a dos de un número de 16 
bits hexadecimal y el número decimal 
positivo correspondiente, 

Por ejemplo: 1234 

HESMON contestará en la misma 
línea: .1234= $04D2 1234, 

Conversión hexadecimal a 


Este comando imprime el equivalente 
decimal de un número hexadecimal. 

Por ejemplo: $ ABCD 

HESMON mostrará (en la misma 
línea): $ ABCD 43981 
+ = Suma hexadecimal 

Este comando imprime la suma de dos 
números hexadecimales en hexadecimal y 
decimal. Se deben usar cuatro dígitos 
hexadecimales. 
Por ejemplo: 
HESMON muestra: 
1234 5678 = $68AC 26796 
—=Resta hexadecinal 

Este comando imprime la diferencia 
entre los dos números hexadecimales en 
hexadecimal y decimal. 

Por ejemplo: 

HESMON mostrará: 
-1234 5678 = SBBBC 48060 


«+ 1234 5678 


.—1234 5678 


Como aclaración final a la lista de 
comandos del HESMON debe tenerse 
en cuenta que los comandos que pro- 
ducen listas en pantalla (D, l y M) 
permiten que mediante las teclas de 
movimiento de cursor vertical se 
pueda prolongar el efecto del comando 
en las direcciones anteriores (con la 
tecla SHIFT) o posteriores a la última 


con la que se ha trabajado. 
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Algo de soft. 


más importantes 


Una de las rutinas 


y 


más sencillas del ROM 
del VIC-20 es la rutina 


C7AR 20 20 C8 JSR $C82C 
c7m1 AS 7A LDA $74 

3 mM 7B LDY $78 

5 co 02 CPY $502 

7 EA NO? 

8 FO 04 BEQ $C7BE 

A 85 3D STA $30 

6 84 3E STY $23E 

E AO 00 LOY 4500 
u7c0 B1 7A LDA ($7A),Y 

2 DO 43 BNE $C807 

4 AD 02 LDY 4$02 

6 B1 7A LDA ($7A),Y 

8 18 cue 

9 DO 03 PBNE $C7CE 

B 4C 4B C8 JMP $C84B 

E ce INY 

P 31 7A LDA ($74) ,Y 
2101 85 39 STA $39 

3 ca INY 

4 B1 7A LDA($7A) ¿Y 

6 85 3A STA $3A 

8 98 TYA 

5 65 7A ADC $7A 

a 85 7A STA $7A 

D 90 02 BCC $C7E1 

P E6 7B INC $7B 
C7E1 6C 08 03 JMP ($0308) 

4 20 73 00 JSR $0073 

7 20 ED C7 JSR $C7FD 

A 4C AE C7 JMP $C7AD 
RERRRAA RRA RARA RARA 
C7mD Fo 30 BEQ $C82B 

F E9 80 SAC 4$80 
e7ñ1 90 11 BCC $C804 

3 c9 23 CMP 4523 

5 BO 17 BCS $C80E 

1 0A ASL 

8 AB TAY 

9 B9 0D CO LDA $C00D,Y 

e 48 PRA 

D B9 0C CO LDA $C00C,Y 
ca00 48 PHA 

1 4C 73 00 JMP $0073 

4 4C AS CY JMP $C9AS 
c807 C9 3A CMP FS3A 
c809 FO D6 BEO $C7E1 

a 4C 08 CF JMP $CFOS 
C80E c9 4B CMP AS4B 
c810 DO Pg BNE $C80B 

2 20 73 00 JSR $0073 

5 A9 Md= — LDA fSAS 

> 20 FF CE JSR SCEFF 

A 4C AO C8 JMP $C8A0 


comprueba tecla STOP 
pointer del programa 


¿Modo directo? 


no: salvar pointer para CONT 


coger carácter actual de prg. 
¿final de línea? 


poner flag para END 
¿final pro? 
si: ejecutar END 


memorizar no. de linea actual 


pointer prg. a la siguie 


IMP $CTE4 

CHRGET coge siguiente carác 
ejecutar instrucción 

al principio de rutina 


decodificar instrucción 
si final línea RTS ($C82B) 


code del interpretador 


code de función o GO TO 


coger dirección de instr 
de la tabla 


coger siguiente carácter y eje- 
cutar instrucción 
a instrucción LET 


comprobar siguiente instrucción 


'SYNTAX ERROR” 


comprueba' code GO TO 
'Go'-code menos 80 


CHRGET coge siguiente carácter 
*TO'-code 

comprueba code 

a la instrucción GOTO 
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del interpretador de BASIC. Aquí se va a 
omentar de tal manera que no habrá 
apenas dificultades para implementar 
nuevas instrucciones al BASIC. 

La rutina CHRGET para coger el 
siguiente carácter del programa se ha 
puesto en la primera página de la memo- 
ria (S0000-$0100) porque así se ejecuta 
más rápidamente. Al encender el aparato 
se copia la rutina del ROM al RAM. 


Algo de hard. 

El circuito integrado más interesante 
del VIC-20 es el Video Interface-Chip, 

Para obtener resultados del ordenador 
hace falta una unidad de salida. El VIC- 
20 usa normalmente un televisor de color 
Todas las señales necesarias para su fun- 
cionamiento las genera el VIC, el Vídeo- 
Interface-Chip 6561. La única excepción 
es la señal de alta frecuencia a la que se 
modula la información. Esta frecuencia la 
genera el modulador externo. Todas las 
otras señales vienen del VIC. 
Además posce este circuito integrado 
(1C) de 40 patillas dos conversores analó- 
gicos/digitales, cuatro generadores de 
frecuencia independientes y programables 
y una entrada para un Light-Pen. Pero 
primero vamos a ver el significado de 
cada patilla: 
Pin Dese. Función 

1 N.C. sin función 
2  COMPCOLOR salida, información sobre 
color para TV 
salida, información sobre 
sincronización y brillo 
para TV 


3 SYNC£LUM 


4 VR/W entrada, lectura/escritura 
5 vDil bit de datos 11 

hasta 

8  VD3 bit de datos 8 

9  BD7 bit de datos 7 

hasta 

16 BDO bit de datos 0 

17 POTX entrada, conversor A/D | 
18 POT Y entrada, conversor A/D 2 
19 COMPSND - salida sonido 

20 Vss alimentación masa 

21 A0 bit de dirección 0 

hasta 

34 Al3 bit de dirección 13 

35 POL salida ciclo 

36 PO2 salida ciclo, sin usar 

37 LITEPEN entrada lápiz óptico 

38  Oin entrada frecuencia de 

cuarzo 
39  Olin entrada frecuencia de 
cuarzo 
40  Vdd alimentación +5V 


Al observar las patillas del VIC resalta 
el bus VD8 hasta VDIl, con lo que 
dispone de un bus de datos de 12 bits. 
Esto resulta algo extraño. Pero la res- 
puesta es tan fácil como convincente. Los 
cuatro bits adicionales sirven para definir 
el color del carácter. Y así también se 
explica la posibilidad de 16 colores, por- 
que con 4 bits se pueden hacer 16 combi- 
naciones (...). 

Las restantes 8 líneas de datos van al 
bus de datos BD, Este bus tiene una doble 
función. Cuando el ciclo del sistema está 
en H lo usa el procesador para acceder al 
RAM. En el estado L lo usa el VIC. 
Ahora el VIC lee el Vídeo —y color— 
RAM, y salva los datos necesarios para la 
representación de los caracteres del 


También las líneas de direcciones del 
VIC tienen una doble función. En el 
tiempo que el procesador ocupa el bus de 
direcciones también direcciona a los 16 
registros internos del VIC. 

Las entradas POT X y POT Y están 
conectadas a las patillas 5 y 9 del 
Controller=-Port para el scanning de los 


Paddles. Su resistencia tiene que variar 
entre 200 y 500.000 ohmios. La entrada del 
lápiz óptico va directamente a la patilla 6 
del mismo port. 

La señal de baja frecuencia de los cua- 
tro generadores (patilla 19) se filtra para 


poder acceder a ella por el contacto 3 del 
Vídeo/Audio-Port. Se tiene la posibilidad 
de mezclar otra señal de audio, p. ej., un 
micrófono, que sólo tiene que conectarlo 
al contacto Y del Expansion-Port y fijarse 
de que la señal tenga unos 3 Vss. 


Commodore. 


e SISTEMA POTENTE 


a Commodore World? 
¡¡¡Pues venga, llámanos!!! 
(91) 231 23 88/95 y (93) 212 73 45 


RED LOCAL PARA COMMODORE 64 


POSIBILIDADES: 
e Más de 20 puestos de trabajo. 
e Utilización de todos los periféricos de la gama profesional 


e Conexión de todos los puestos sobre mismas unidades peri- 
féricas a través BUS IEEE. 


e Diálogo bidirecciones entre puestos. 
e Manejo a distancia de cualquier ordenador. 

e Posibilidad de coger y pasar una pantalla, 

e Cargar un programa a todos los puestos a la vez. 


+ Mandar mensajes. 


e FACIL DE MANEJAR, NO PRECISA SOFTWARE 
e ADAPTABLE A LAS CONDICIONES MAS EXIGENTES 
e APLICACIONES EDUCATIVAS, COMERCIALES... 


B. S. Pp Plaza Joaquín Folguera, 2. BARCELONA-22. Teléf.: 247 40 03. 


¿Que no sabes 
cómo suscribirte 
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7 El grupo terrorista 
MOPILETTE ha sabo- 
teado los silos de 
almacenamiento de 
plutonio concentrado, 
Estos silos si estallan 
provocan una reacción en cadena que destruiria la humanidad. 

Su misión como jefe de seguridad de la central consiste en 
penetrar en las distintas habitaciones del complejo y cerrar las 
válvulas numeradas según el orden que indiquen las claves de 
desactivación 

Pero atención: si desactiva las válvulas en un orden que no es 
el indicado, usted es destruido y las esperanzas de la humanidad 
se desvanecen, 

Una advertencia final: las habitaciones contienen gases leta- 
les y usted ha de consumir el oxígeno que hay en su vehiculo 
que va disminuyendo con rapidez y si llega a extinguirse usted 
perece 


Francisco Sarrias Pedemonte 
Laforja, 100, 2% 3* e-B 
Barcelona-21 


Descripción del Juego: 


Al comenzar el juego se encuentra usted en su vehículo esfé- 
rico en una enorme sala donde están marcadas las válvulas de 
seguridad, En la parte inferior de la pantalla está indicado el 
orden en que usted debe pasar por los números para desactivar 
las cargas situadas en esa habitación. Para mover su vehículo 
utilice las siguientes teclas 

Y - arriba N - abajo 

G - izquierda — J- derecha 

Al comenzar la partida, usted debe seleccionar su nivel de 
juego que determinará la rapidez con que su reserva de oxígeno 
se consumirá, así como la puntuación de BONUS que usted 
reciba al finalizar la pantalla. 

Al cerrar una válvula el ordenador comprueba si ésta seguía 
la cadencia indicada en la clave de la habitación; de ser así ese 
número se coloca en rojo en la clave y usted procede a pasar por 
el siguiente número; de lo contrario usted es destruido y pierde 
una vida de las tres que se le conceden al iniciarse el juego 

Otra forma de perder la vida es cuando se le agota la reserva 
de oxigeno —que inicialmente es de 999 litros—; cuando el 
oxigeno es muy escaso su marcador de oxigeno se volverá loco. 


COMPARTIENDO EXPERIENCIAS 
ENTRE AMIGOS 


Sabotaje Nuclear 


sta sección está dedicada a la 
E colaboración de todos nues- 
tros lectores y está dividida 
en dos partes: 
1) Programación: Programas 
y similares. 
2) Magia: Trucos, sugerencias, 
etcétera (pág. 48) 
Habrá premios y alicientes para 
todos los participantes (ver pág. 5). 
Enviarnos vuestra dirección para 
que podáis poneros en contacto 
unos con otros. ¡Anímaros, chicos 
(...y chicas)! 


C-64 


Tanto el nivel como las vidas que se tienen se incrementan 
automaticamente a medida que se va adquiriendo una cierta 
puntuación, así pues el nivel se aumenta más o menos cada 
5.000 puntos —digo más o menos porque igual aumenta 20 3 
unidades de golpe. forma parte del riesgo y la aventura... y las 
vidas aumentan cada 15,000 puntos 

Según el nivel en que se halle el oxigeno disminuirá más o 
menos lentamente y usted tendrá que dirigir su vehículo con 
mucha habilidad para aprovecharlo al máximo —piense que su 
vehículo esférico es un modelo anticuado y de velocidad 
limitada 

Al conseguir cerrar todas las válvulas de una sala, su puntua- 
ción se verá incrementada —BONUS— en función del nivel y 
del oxigeno que aún le resta 

Sólo me queda advertir que yo personalmente aún no he 
pasado del nivel seis. 


Descripción del Programa: 

Si bien el programa no goza inicialmente de una espectacula- 
ridad desbordante, resulta bastante adictivo y convida al juga- 
dor a probar de superar su anterior puntuación 

El programa carece de efectos de sonido y de otros utillajes 
de costumbre en la “full arcade action” tales como la utiliza- 
ción de rutinas en “machine code” para dar rapidez a los 
movimientos. Pero mi objetivo era dar una idea básica que 
contuviera los menos “pokes” posibles y que fuera rápida y 
sencilla de copiar. Sería interesante observar los adornos que 
cada cual añada al juego y comparar los resultados finales 

Algunas implementaciones sencillas son la aparición de 
minas, habitaciones creadas por random, utilización de “espri- 
tes” en los gráficos, sonidos, tablas de records, paredes de la 
habitación electrificadas, monstruos que te persigan, etc... cada 
cual con su imaginación y habilidad para la programación. 

Refiriéndonos al programa en sí, podemos observar en lis- 
tado que está organizado en una serie de subrutinas de utilidad 
que son llamadas desde el programa principal. 


100-130 Subrutina de presentación y final 

200-398 — Subrutina que dibuja en pantalla el trazado de la 
habitación, los marcadores y la clave de desactivación 

400-420 — Subrutina que busca una posición al azar y la coloca 


en la variable X. 
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450-495 — Subrutina que se encarga de generar la clave de des- 


activación de cada habitación. 


500-535 — Subrutina que se encarga de gestionar la muerte del 
individuo, comprueba si quedan vidas y en caso 


negativo finaliza la partida y propone la revancha 


600-615 Subrutina que se encarga de añadir los BONUS 


necesarios al marcador cuando se ha completado 
una pantalla. 

700-720 Subrutina que se encarga de elevar el nivel de juego 
o las vidas si procede 


1000 Borra la pantalla y coloca los colores de fondo. 
1010-1030 Inicializa la partida y pregunta el nivel inicial de 
juego. 


1060-1070 Inicializa variables y pinta la habitación. 

1080-1110 Coloca al azar las válvulas a lo largo de la 
habitación. 

1120-1140 Se encargan de calcular la posición del vehículo 
según las teclas que se hayan pulsado. 


1145-1200 Disminuye el oxigeno y actualiza los marcadores. 

1210-1240 Comprueban si la válvula sigue la cadencia de la 
clave y genera la puntuación y la presentación en 
pantalla correspondiente. 


Variables principales 
PS y CO son utilizadas para la presentación 

NI almacena el nivel de juego 

VI almacena las vidas 

SC almacena la puntuación 

OX almacena el oxígeno 

P1,-P2, P3 utilizadas para los “peeks" 

X, 1, K utilizadas en labores menores 

CLS almacena la clave 

CN es utilizado para determinar si la cadencia de desarticula- 
ción es correcta 

SD antigua posición vehículo 

OSD actual posición vehículo 


1143 Comprueba si el vehículo ha cerrado una válvula. CL utilizada en la elaboración de la clave. 
In 
2 REM S5MBOTRAJE NULLERR 398 PRINT"(RYSUNJIWELIC45SPCICLAVELSPCI 
3 REM 203CLS) "[16SPCI" RETURN 
4 REM HUTOR : FRANC 'n Y X=INTURNLC1IAB0U)+ 120 
5 REM SARRIAS PEJEMONTE IF PEEK(1024+X><932 THEN 4uu 
6 REM RETURN 
7 REM PARA EL CBm=64 CL$="":FOR I=1 TO 9 
8 REM CLi¿ IR INTORNDO 110) 


14 GOTO 1000 

100 FOR l=1 TO 194 

110 PS=INTURNDC1)4975):CO=INTORNDC1) 
Moo) 

120 PUKE104+PS, 81 :POKE 359296+P5, CO 
130 NEXT 1:RETURN  * 

200 PRINT" LOLA IHRORN I VELAR 1 DASAORA 
UNTOS Al ENCIAARA 

210 PRINT "HR NICO Y Lolo 
A A 

215 PRINT 

Gu PRINT"CAHT14MCUIA 1 

3039 PRINT"[COMM+JC9SSPCIECOMM+1(145PCI 
LCOMm+J119SPCICCOMm+ 3 

310 PRINT"CCOMM+JC8SPCICCOMM+IC14SPCI 
LComMm+ 31 19SPCILCOMM+ 1%, 

315 PRINT"CCOMM+JC(8SPCICCOMM+3C145PCI 
CCOMM+J114SPCJLCOMm+ 7" 

328 PRINT"[SCOMMN+7]145PCICCOMM+JL29SPCI 
Com 1 

323 PRINT"CCUMM+)CIBSPCICCOMME 1 

330 PRINT"CCuUMmn+1C36SPCILCOMA+ 1 

3:35 PRINT"CCOMMN+)L8SPCILCOMM+ILZI9SPCI 
Comme 

340 PRINT"CCOMM+7]L5S5PCJ]CCOMNM+J114SPCI 
CCOMM+1145SPCICCOMe 1 

345 PRINT"CCOMM+I198SPCICCOMM+T[145PC1 
ECcomm+1145PCICC01m+ 105 

350 PRINT" COM CSSPCIC19COMN+ICOSPCI 
Ccomm+107SPCIC2COMM+ IL 4SPCIL2COMM+ 1" 


395 PRINT“CCOMM+7CZ3SPCIECOMM+IC7SPCI 
CComm+J16SPCICCUMMR IA 

360 PRINT"[COMM+TC22SPCIL5COMM+7C35PCI 
CCOmm+JL6SPCICCOMA+ 7" 

365 PRINT"[COMM+]C17SPCIL3SSPCILCOMM+I 
C8SPCILCOMN+ILESPCICCOMME 1"; 

374 PRINT"[COMM+IC225PCJLCOMM+1CSSPCI 
C3sPCJCCOMM+ 7 LÉSPCILCOMI 

375 PRINT"[COMM+314SPC]C6COMM+I[12SPCI 
Cconmm+J (8SPCICCOMM+ 116SPCI ECO" 

380 PRINT"[COMM+7[95PCILCOMM+3[12SPCI 
ECOMM+IC8SPCIECOMM+IC6SPCI COMAS 1"; 

395 PRINT" [COMM+J[9S5PCJ CCOmM+ 7 (8SPC 
[SCOMM+)18SPC1LCOMM+7[6SPCIECOMM+ 


390 PRINT"[COMM+JL9SPCICCOMM+1[21SPCI 
Ccomm+JC6SPCI CC 
395 PRINT"C4w0COMM+I0 


FOR Kk=4 TO 1-1 

TF CLCI)2ACLCK) THEN 455 
NEXT K 
LL$(1)2STRECCLULO) 

480 CL$=CLS+CL$CI) 

483 NEXT 1 


¡POR FIN! 
EL SOFT DIDACTICO Y RECREATIVO DE MAS EXITO 
EN U, . DISPONIBLE EN NUESTRO MERCADO 


ic, S. A cs una nueva empresa dedicada a la distribución y manu- 
de software y accesorios para microordenadores que ofrece, a 
partir de este mes de octubre, una innovadora gama de productos que sin 
duda dará mucho que hablar 

Distintas marcas de reconocido prestigio internacional y de gran éxito en el 
mercado han firmado contratos en exclusiva con IdeaLogic, para que ésta las 
represente en el mercado español 

IdeaLogic contará con su propia red de distribución que cubrirá también 
las Islas Canarias y Andorra, Dicha red está en fase actual de negociación. 

Los primeros títulos que :n vienen a cubrir un importante hueco 
existente en los actuales catálogos de software. Nos referimos a la parcela del 
software educativo y didáctico. El líder mundial en este campo es, sin du 
firma de Boston SPINNAKER SOFTWARE CORP., cuyas ventas represen- 
tan el 40% del mercado americano. De esta firma IdeaLogic lanza cinco 
títulos: MIL CARAS, TECLAS DIVERTIDAS, COMPULANDIA, EL 
RANCHO y un nuevo producto que ya ha sido denominado como el 
“MICHAEL JACKSON DEL SOFTWARE”; éste es ALF EN LAS GRU- 
TAS DE COLOR. Todos estos programas han sido cuidadosamente creados 
por especialistas en la educación, en los gráficos, la música y la programa 
ción, con un objetivo central: el niño, que a la vez que juega cón el ordenador 
aprende 

Otra marca muy ligada e interesada en cl mundo del niño es F-P Learning 
Software, sus títulos son de muy reciente aparición en los Estados Unidos y 
ya han recibido innumerables elogios. De su catálogo IdeaLogic presenta cn 
un primer momento LABERINTOS LÓGICOS, BAILEMOS Y NUMEROS 
LOCOS. Estos divertidos programas son realmente encantadores y hacen 
realidad el que el microordenador puede ser usado como herramienta lúdica a 
la vez que educativa y creativa 

El software de IdeaLogic aparece para Apple He, para el cual está desarro- 
lando un largo catálogo de software educativo, y también para los microor- 
denadores Commodore 64 y Sinclair Spectrum. Para los usuarios del C-64 
llega MUSICALC 1. 2 y 3, con el cual es posible convertir su Commodore en 
una auténtica orquesta, componiendo canciones, modificándolas, añadiendo 
instrumentos y experimentando creativamente con la música, Todo ello aún 
sin poseer conocimientos musicales. Su única limitación es la imaginación del 
usuario. 

Otras importantes novedades son la Valiant Turtle, robot mecánico para 
ser usado desde el lenguaje LOGO, la tabla gráfica de bajo precio SUPER 
SKETCH y el irrompible joystick de precisión SUPER STIK. 

Por fin, y como novedad de desarrollo propio, presenta un m 
color de media-alta resolución para ser usado tanto con micros qu 
RGB o los que ofrecen señal compuesta. Su precio es muy inter 

IdeaLogic tiene preparadas otras diversas e interesantes novedades que 
lanzará próximamente al mercado. Sus oficinas están en Gran Via de Carlos 


itor en 


III, 97K, 08028 BARCELONA. Tel. 330 33 08* 


AAN AIN NAT 


» 494 CH=0:REM CONTADOR NUMERO 

493 RETURN 

500 Vl=W1-1- [FWI>4GOTOS35 

505 GOSUB1VA 

515 PRINT"CCLRICECRSHDICSCRSRRI" 

$528 INPUT"DESERSUSPCIOTRACSPCIPARTID 
ALSPCIS/N",PHS 

25 1FPAS="N"THEN END 

539 RUN 

535 GUTO 1005 

600 FORI=UXTO 6 STEP-104/N1 

605 SC=SL+NIW1O0: GUSUB208 

608 GUSUB700 

618 NEXT 1 

615 GOTO 146S 

700 IFSC 5049 INT CSC /S004)HNDSC/3000 
<INT(SC/S0007K1., US THENNI=N1+1 

710 1FSC/1599071NT(5C./ 15040) HNDSC/15 
VU0<INTOSCI1S0UBIW1.MZTHENYI=1+1 
720 RETURN 

1000 PRINT"(CLRI" 
3281,0 

1014 005UBIO 
1920 PRINT"[CLRICIMORSRDILASPCI" 

1030 INPUT"[SPCI INTRODUCE LSPCINIVELESPCI 
1-5" NI :PRINT"LULR]" 

1060 VI=3:50=8: DIMCL509),CL(9) 


POKES3280, 0: PUKES 


1065 0X=993: GUSUE4S4 : GOSUBZO0 

1670 GOSUB 408: SD=x:USI=51 

1084 FOR I=49 TU 57 

1654 GUSUB 408-REM X ALEHTORIM 

1100 POKE1024+x, 1:POKESS296+X, 8 

1119 NEXT 1 

112 PI=PEEKC(19/):P2=1024+51 

1130 SI=SD+14P1=Z6 HND PEEK(P2-1)0> 
1534 HND PEEK(P2+1)00 102) 

5 HND PEEKCP2-40) 
<)102)-404(P1=39 AND PEEK(P2+48)<>18 


2 

1143 P3=PEEK(1024+5D)-1F P3748 AND P 
3CS8THEN 1210 

1145 OX=0X4-NI] * IFOXCOTHENGOSURSO4 
1158 POKE1024+051, 32 POKE1024+5D, 81 
OSL=5D 

1194 FRINT"CHOM)ECRSRDICSSPC INT; "1SSPCI 
"VI; "ESSPCIMGSCi “LOSPCIM OK; 

OTO 1129 

1210 CN=CH+Z> IFCN=1STHEMGOSUBEGO 
1220 1FP3-48<VALOMIDSCCLE, ON, 19)THE 
N GOSUESO0 

1239 SU=3C+ INT CRNDC1 4257410 

1235 GOSUE? HA 

1444 POKES6186+0M,2:G0TO 1145 


Esta es la segunda vez 
que escribo a la revista, 


Carlos Rojas López 
enviando un programa. 


Gustavo Gallardo, 7. 4D 


cla Sin embargo sería tan 

s malo que ni lo han 

F A publicado. Espero que 
esta vez no ocurra lo mismo. 


Les mando un sencillo programa dle 
opinen que es una versión del populi 
opino que es muy original. 

El juego consiste en mover al packman comiéndose los pun- 
titos con el joystick; verás los puntos en la marte superior 
izquierda, pero debes tener cuidado con los nrónstruos que te 
acechan. En la parte superior derecha hay un cronómetro que 
te indica los segundos que faltan para que los monstruos apa- 


nego; tal vez algunos 
:Pack-Man, pero yo 


Laberinto 


VIC-20 


rezcan. Cada vez que salgan tardarán en aparecer un segundo 
menos, hasta los 15 segundos, en el que retornará a los 30 
iniciales. 

De vez en cuando saldrá una cereza que vale 500 puntos. 
Cuando consigas 2.200 puntos, puedes comerte el signo gráfico 
de arriba a la izquierda. 

Cada 7.500 puntos tendrás un packman más —tienes 3 al 
principio—. El juego termina cuando agotes tus tr packman. 

NOTA: los monstruos te comen cuando coinciden con tu 
packman o con las bombas que deja tras una aparición completa 
de todos los monstruos. 

Como podéis comprobar, el juego es muy sencillo y está 
dividido en dos partes, o sea, grabado en dos partes: 

1) Esta parte crea los gráficos de alta resolución que definen 
las figuras o muñecos que aparecerán durante el juego. Consta 


RO 
analógico, asín- 


crono, sumador (ad- 
der). 
ABEND.—(ABnormal END 
of task), es la terminación de una 
función o programa antes de su 
tiempo habitual, suele ser debido a 
un error producido durante la ejecu- 
ción que no ha podido ser detectado. 
Abort.—Es la terminación de una 
rutina dando un mensaje de error 
detectado por el sistema. 
Absolute error.—(Error absoluto), 
es el rsultado de restar el valor obte- 
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nido o medido del valor teórico 
esperado. 

A bus.—(Address bus), es el bus de 
direcciones de nuestro ordenador. 

AC.—Corriente alterna (alterna- 
ting current) o acoplador a 
(acoustic coupler). 

ACC.—Acumulador. 

Access.—(Acceso), es la manera 
en que nos referimos a los archivos o 
bloques de datos (directo, inme- 
diato, serie, etc.). 

Access time.—(Tiempo de acceso), 
es el intervalo de tiempo desde que la 
CPU solicita un dato hasta que lo lee 
(depende de la velocidad de la 
memoria o periféricos) 


ACIA.—(Asynchronous communi- 
cations interface adapter), es el dispo- 
sitivo o chip que nos permite comuni- 
carnos con un bus de comunicaciones 
serie asincrono (por ejemplo con un 
modem o impresora rs-232). 

ACK.—(Acknowledgment), es la 
señal de reconocimiento, sirve para 
que un dispositivo indique al otro que 
ha recibido los datos que le envía. 

Acoplador acústico.—(AC), es el 
dispositivo que permite convertir las 
señales enviadas por un modem a 
todos audibles para que estos sean 
transmitidos por el micrófono del 
teléfono a la línea telefónica y 
viceversa. 


— 


REPRODUCCION DE LISTADOS IMPRESOS 
DEFECTUOSAMENTE EN EL COMMODORE 
WORLD DE SEPTIEMBRE 


Es la “Hora” de aprender, pág. 15 C-64 


O REM PARA EL RELOJ-C64 
40915 31689176717 163176016 


45-4177-4177-406 

+4145+9177+4177+4066" 

78+3978-0164-4177-4177-405 

78+0167+4177+4177+4066" 

5 B3="124312491331153117711849184319 

391756151613161238":92=54285 

6 L0=54272:V254296:50=53281:BO=9: 
W2=34203:A2=54204:H2=54280:L2=! 


Y 
4279 


8 FORX=5427271054296 : POKEX, 0: NEXTX:PO 

KEV, 15:POKEA2, 116 'POKES2, 128 

10 POKESC, 12:POKEBO. 3 

11 PRINT"[CLRICSCRSRR ) [COMMA TER YSONI 
ESPCIDIAGRAMAL JIECSPCIHORACSPCICRYSOFF 
PRINT"[CRSRDI";SPCC8); "00" :PRINT"CESPCI 
EScommaJEsPcI5" 

15 PRINT"[SSPCISSESHIFTNIC2SPCI1ZLSPCI 
CSHIFTMI":PRINT"C4SPCICSHIFTNI11C35PCI 
1C05PCIESHIF TM) CSPEI1 PRINT"[SPCI58 
ISHIFTNICOSPCICSHIFTMI" 

20 PRINT"[25PC1CCOMMMI1BLSPOIRELOJESPCI 

2 1SPCICCOMMGI":PRINT"CZSPCICCOMAMI 
SPCC11)5 "CCOMMGI" 

25 PRINT"95CCOMMMISEZSPCICSHIFTOICSHIFTA 
Coomm+114SPCI3CCOMMGI15" :PRINT"L2S5PCI 
ECOmnm1CSSPOICSHIFT-JUSSPCILCOMMG 1" 

30 ad 

C C OMG 1" :PRINT"ESPCIGOCSHIFTMI 
JISHIFTHIZO" 
JUSHIFTMICSPCI?ESPCICSHIFTOI 
JCSHIFTNI":PRINT"[3SPCISSCSHIFTMI 
CESPCI6L2SPCIOSHIFTNIZS 
40 PRINT"[6SPCIESCOMMTI":PRINTTABC7) 
"gg" 

45 PRINT"[CRSRDIC4SPC HOR 


[SPC 19:30 


50 PRINT"[2CRSRDICSFCIPULSALSPCI FE?” 
ne SPCIPARHUSPC ICOMENZARESPCI,DLZSPCIP 
":PRINT"CSPOI" 1" ESPCIPARALSPCIIN 


1 20" THENSS 
s$."1 "THENSE 
57 GUTOZ0H 
56 PRINT"ECLRI"¡SPCC11)5 "ERYSONICSPOI 
INSTRUCCIONESCSPCILRYSOFFI" 
70 PRINT"[CRSRDICSPCIGANASCSPCIACERT 
ANDOLSPCI3CSPCIVECES, " 
79 PRINT"C2CRSRDILRYSONICSPCITECLASISPCI 
DECSPCICONTROL [SPCITRY: F1":PRINT"C2CRSRDI 
“F1 ISPCIMUEVELSPCILACSPCIMANILLALSPCI 
CHICA, " 
80 PRINT"[CRSRDI"F3"[SPCIMUEVELSPCIL 
ACSPCIMANILLACSPCIGRANDE. * 
85 PRINT"LCRSRDI"F?"[SPCIPARALSPCIEL 
ESPCIRELOS 
87 PRINT"C3 


RSRDITSPEICPULSALSPCIUNA 


[SPCITECLA. >" 

90 DETSS: 1IFS$=""THENYO 

159 POKESC, 11:POKEBO, 7:PRINT"[CLRICHHTI 
ECRSRDICRYSONIDIFICULTADESPCIDELSPCI 
LALSPCIPRUEBACRYSOFF 1" 

155 PRINT"[CRSRDIC1)[SPCIHORAS "¿PRIM 
T"[CRSRDIC2>USPOIHORASUSPCIWOSPOI1IZ 
HORAS" 

160 PRINT"CCRSRDIC3)USPC]INTERVALOS= 
SISPCIMIN, " 

165 PRINT"[E6CRSRDIC2SPCIPULSALSPCI1, 
2,0125PCJ3" :PRINT"[CRSRDICSPCIOL2ZCRSRDI 
[2SPCIPULSACSPCI"F"CSPCIPARALSPCIF IN 


170 GETDS: IFDg$=""THENI7O 

173 1FD$="F"THENPOKEV, 6 :POKESC, 6: POK 
EBO, 14:PRINT"[CLRICCOMM?I": END 

175 DsVAL (DS) 

180 IFD>3ORD<1THEM170 

200 PRINT"CCLRICREDI" Red: bd: POKESO 
8: POKEBO, 2 

210 PRINTTHBC12>"115C0MM7":PRINTTAB 
(10)"TRYSONICSHIFTEJLRYSOFFICSHIFTEJ 
"SPOCIS) 5 "ESHIFTMI" 

211 PRINTTABC9)"CRVSONICSHIFTEICRYSOFFJ 
SHIFTEJCSPCI11C5SPCI1Z CS PCI1CSHIFTMI 
":PRINTTHB "TRYSONIUSHIFTEICRYSOFF 1 
CSHIFT£I";: 195 "CSHIFTMI" 

212 PRINTTABCS>"CRYSONTESPCITKVSOFF] 
10"¡SPCC18);"213HIFTM1":PRINTTABCD)" 
ERVSONI TSPCIIRYSOFF 1" SPCC225) "ECOMMGI 


213 PRINTTABI8 "CR NTLUSPCILRYSOFF J 
¿Si 2235" CCOMMG7" :PRINTTABC(8) "LRVSONI 
ISPCICRYSDFF 1" SPOC220 5 "CCOMMG a" 
214 PRINTTABCO)"CRYSONICSPCILRVSOFF 
¿SPCC22)5 "LCOMMG)" :PRINTTHBCE)" CRVSONI 
CSPCIIRYSOFF 1";SPC ES 3 ECOMMGT" 
SPCICRYSOFFI 
CRUSONILASPO JURVSOFF1";S5PC 
CommG a" 
216 PRINTTABC8>"[R' NIUSPCICRVSOFFI 
ESPCI9")SPCC70 5 "ERYVSONICASPCICRVSOFF ] 
MSPOCRI 5 "SESPCICCOMMG 
217 PRINTTAB(8)"[RYSUNJUSPCICRYSUFF ] 
" SPECD) 5 "ERYSONICASPCICRYSOFF 1" SPC 
(9); "[COMMGI 
218 PRINTTAB(8)"CRYSONIESPCIORYSOFF 1 
" SPCCII 5 "IERVSONILASPCICRYSOFF 1" SPC 
975" [COMMGI1" 
219 PRINTTABC8)"[RYSONIESPCILRY 
" SPOC22) 5 ECOMMGI" ¿PRINTTABC8> 
ESPCILRYSOFF IM SPCCZ20 5" COMMG a" 
220 PRINTTHBC8)" [RYSONIISPCICRVSOEF J 
"53PUC22)5"[COMMGI":PRINTTABCS>"[RYSONI 
ESFCILRYSOFF 1" 5SPCOC22)" LCOMMG a 
221 PRINTTABCS)"[RYSONIISPCICRYSOFFJ 
¿SPCC22))"[COMMGI":PRINTTABC8) " [COMA 
ERYSON]CCOMMA ID ERYSOFF18"5SPCC18); "4 CSHIFTNI 


UFF] 
TRYSONI 


222 PRINTTABCS)" [COMA CRYSONI [COM 

ERYSOFF1",SPCC18);"ISHIFTNI":PRINTTA 

ONJLCONMMAIERYSOFF 17 
H. se 


ERYSOFFIL14COMM8) CSHIFTNI" 
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240 HR=INTCRNDC1I12+1):080 
e IFD=3THENMN=INTORNDC1 7412) :GOTOZ 


2d 1FD=2THENMH=54 INT<ORNDC1 2) : GOTO 
248 
247 MN=b 
248 IFMH=00RMN=1THENPRINT" [HOM] "¿HR 
19% SMN GOTOZSO 
243 PRINT"CHOMI" HR 00M 
250 Hs1 :Ri=a 
251 IFRIMO2THENPL=VHL (MIDSCLHS, CH-17% 
4+1,4) 60710280 
261 1IFRIDI1THENH=H+1:RM=9 
262 IFH>12THEN250 
270 PL=WALOMIDICLE, (H-1544+1,4)) 
280 PB=YAL(MIDICBS, 4HRIM+ 1,9) 


281 PRINT"[HOMIC14CRSRRIC12SPCIE1UCRSELI 


¿ARM 

284 IFRM=OTHENI [=40:PP=66 :DUTOZ298 
285 11=VALCMIDSC IPS, CRM-1)5+1,3)) 
286 PPSYAL(MIDSCIPS, (RM-1)45+4,2)) 
289 IFC(RM>11)0R(H712)THENZ61 

290 POKEPB. 160: POKEPB+C 0,8 

304 FORK=1T0S:POKEPB+KKI 1,PP:POKEPE+ 
KATIACO, UE NEXTK 

345 POKEHZ., 30: POKEL2,141:POKEWZ,17:F 
ORK=1T016: NEXTK: POKEWZ, 8 

310 IFRM2THENI=VAL CMIDECIHS, CH-1)45 
+1,3)) :PSVALCMIDECIHS, CH-1 544,27) 
60TO330 

320 I=YAL<MILSCIPS, (H-1)49+1,3)):P=Y 
ALCMIDSCIPE, CH 114544, 2)) 

330 POKEPL, 160: POKEPL+CO, 6 

390 FORK=1T103: POKEPL+K4L,P:POKEPL+A 
1+ E 
350 


358 1F5$="[F3]"THENRM=RM+2: 0010373 
359 IFHR=HANDMN=RMTHENSOO 

360 50T0640 

373 POKEHZ, 61: POKEL2, 125 :POKEWZ,17:F 
ORK=1T010: NEXTK : FOKEMZ, 6 

384 POKEPB, 32: FORK=1T05:POKEPB+K41 1, 
32: NEXTK 

381 POKEPL, 32: FORK=1T03: POKEPL+K4e1,3 


3s IFO0=1THEN240 

386 IFO2=1THEN251 

390 RhiM=RmM+1 

391 1IFRIM11THENH=H+1 + RM=0 

392 1FH>12THEN250 

409 GUTOZ51 

500 FORK=1T02:PRINT"CHOMI"SPCC20);"S 


sul FO 1T010'POKEHZ, 108: POKEL2,223 
POKEWZ, 17: FORJ=1T010'NEXTJ 

502 POKEWZ, 0: NEXT 

$93 PRINT"LHOMI";¡SPCC20);"[45PCI":FO 
RX=1T0100-NEXTX' NEXTK 

504 R=R+1:1=0: PRINT"CHOMI";SPCC37 RA 


505 1FR: HENPRIMT" LHOMILESPCICRYSONI 
FANTASTICOCRYSOFF J110SPC]":G0TOS0? 
566 PRINT"CHOMIPULSHESPCIAF?*CSPCIPA 
RALSPCIEMPEZAR. ":GOTOS09 

567 FORA=1T0' POKELIZ, 33: POKEHZ, Xx: PO 
KELZ, 100+28X: FORJ=1T010: NEXTJ : NEXTX 
508 POKEW2, 4: GOTO7O0 

509 GETSS: 1FS$= HENSO9 

510 PRINT"CHOMIC245PC]":0=1 :G0T0330 
600 POKEHZ, 8:POKELZ, 23: POKEW2, 33: FOR 
0: NEXTA: POKENZ, 0 

2310 RMN H=HR : bi=bi+1 

0TOJ56 

PRINT" HOM"), SPEC97 5 "CORREGIDO" 


2 FURX=1T02400: NEXTA 


653 IFW>2THEN19 
654 PRINT" CHOMIPULSALSPCI"F?LSPCIPA 
RALSPCIEMPEZAR. [2SPCI" 

655 GETS$: 1FS3=""THENESS 

857 PRINT*THOMILZ6SPCI" 


Es la “Hora” de aprender, pág. 18 VIC-20 


0 REM PARA EL RELOJ WIC-29 

1 L$="782672497915000380245020801779 
947906784078197822" 

2 LH$="78277871793780258023602090167 
9727906781878207822" 

3 1IH$="+2176+2178-0164-2377-2377-226 


6-21 
4 1P$="+2178+2178-0164-2: 
6-2178-2178+0167+2377+237 
5 B$="77787784780779178049807| 
S98036790477947773" 

6 C0=30720: Y=36878:51=36874 52236873 
:53=36876 : $C=36879:POKEV,15 

10 POKESC, 174 :PRINT"[CLRICICRSRRICRYSONI 
DIAGRAMALSPCIDECSPCIRELOJCRYSOFF 1": P 
RINT"[CRSRD)";SPCCB), "08" :PRINT"LESPCI 
CSCOMMaJyS" 

15 PRINT"[3SPCISSISHIFTNIC25PC1121SPCI 
ESHIFTMI":PRINT"[4SPCIUSHIFTNI11145PCJ 
1CSHIFTMICSPCI1O":PRINT"ISPCISOLSHIFTMI 
[9SPCICSHIFTMI" 

20 PRINT"LZSPCICCOMMMI 10LSPCIRELOJL2SPCI 
2CCOMMG 7": PRINT"C2SPCILCOMMMI"¿SPOCL 
1);"[COMMGI" 


25 PRINT"45CCOMMMISCZSPCICSHIFTOILSHIFTAI 


Ccomm+J1SSPCICCOMMGI1S":PRINT"[2SPCI 
CComMMILSSPCILSHIFT-315SPCILCOMMUI" 

38 PRINT"L2S5PCILCOMMMISCISPCICEHIFT=J 
[45PCI4COMMOI":PRINT"CSPCIGOLSHIFTMI 
(4SPCIISHIFT-J14SPCICSHIFTNIZO" 

35 PRINT"[4SPCISHIFTMI?[25PCIISHIFTOJ 
[2SPCISISHIFTNI":PRINT"CISPCISSESHIFTMI 
[2SPCIEL2SPCILSHIFTNI25" 

40 PRINT"[6SPCICSCOMMTI":PRINTTABC?) 


45 PRINT"ICRSRD] [4SPCIHORA=[SPCI9: 30 


50 PRINT"[CRSRDIPULSALSPCI F?"PHRALSPCI 
EMPEZARTORSRDIOESPCI"1", [SPCIINSTRUC 
CIONES. "; 

55 GETSS: 1F9$=""THENSS 

56 1FS$="1"THENSS 

57 GUTOZU0 

58 PRINT"CCLRIL4SPCICRYSONJCRED]INST 
RUCCIONESERYSOFFICBLUI":PRINT"CCRSRDI 
INTENTACSPCIPARARCSPCIEL ESPE IRELOS" 

65 PRINT"CUANDOCSPCILASISPCIMANILLAS 
[SPC1":PRINT"ECRSRDI INDIQUENLSPCILALSPCI 
HOFA. * 

76 PRINT"[CRSRDIGANASESPCICONCSPCIGLSPCI 
ACIERTOS. 
753 PRINT"[2CRSFDICRYSONITELLASTS 
ELSPCICONTROLURYSUFF 1":PRINT"CCRSRD] 

“F1 [SPC IMUEVELSPCILALSPCIMANILLACESPCI 
CHICA" 

80 PRINT"[CRSRDI "FS" LSPCIMUEVELSPCIL 
ALCSPCIGRANDE * 

85 PRINT"CCORSRDI F?”ISPCIPARHESPCIEL 
ESPCIRELUJ" 

8? E INT"[ZCRSRD]CPULSACSPCIUNALSPCI 


FICULTADLSPCIDEL CSPCIJUEGO" 

155 PRINT"[2CRSRDIC15CSPCIHORAS" :PRI 

NT" [CRSRDI (2) [SPC IHORASESPCIVLSPCI1/ 
2Z[SPCIHORAS" 

166 PRINT"[CRSRDI(3) [SPC] INTERVALOSC25PCI 
DE[Z5PCISLSSI ECRSRDIMINUTOS. * 

165 PRINT"ESCRSRDIPULSACSPCI1,2,0[SPCI 
3. ":PRINT"C[2CRSRDIPULSALSPCI"F“[SPCI 
PARACSPCIFIN. " 

170 GETDS: IFDS=""THENI7O 

173 IFDs="F"THENPOKEV.0:POKESC,27:PR 
INT"(CLRI":END 

175 D=vHL (Dg) 

189 IFD>30ORDC1THEN178 

200 PRINT"[CLRI":R=0'U=0-POKESC, 159 

210 PRINT"L4CRSRRIC14C0MM87" 

211 PRINT"C2CRSRRICRYSONJCSHIFTEJLRYSOFF ] 
CSHIFTET1114CRSRRI12USCRSRRI1CSHIFTMI 


212 PRINT"[CRSRRICRVSONICSHIFTEJCRVSOFFI 
CSHIFTEI",S 16); "ISHIFTMI" 

213 PRINT"[CRSREICRYSUNICSPCICRYSOFF J 
10" SPCC15); "2LCOMMGI" 

214 PRINT"C[CRSRRICRYSONICSPCILRYSOFF 1 
"¿SPCC18) 5" ECOMMGI":PRINT"[CRSRRICRYSONI 
[SPCICRYSOFF71",SPCC18);"[COMMGI":PRI 
NT"[CRSRRICRVSONICSPCICRYSOFF1"SPCC1 

8), "[COMMGI" 

215 PRINT"[CRSRRICRVSONILSPCICRYSOFF ] 
"¡SPCC18);"[COMMGI":PRINT"LCRSRRICRVSONI 
ISPCICRYSOFF 1"SPCC 18), "LCOMMGI" 

210 PRINT"CCRSRRICRVSONJUSPCIURYVSOFF ] 
IL7CRSRRICRVSONIL2ZSPCILRYVSOFF IL7CRSRRI 
3CCOMMGI" 

217 PRINT"[CRSRRICRYSONICSPCICRYVSOFF ] 
CS8CRSRRJURVSON]C2SPCICRYSOFF JL8CRSRRI 
LCOmmG" 

219 PRINT"CCRSRRICRYSONTUSPCICRYSOFF 1 
"¿SPCC18); "[COMMGI":PRINT"[ORSARICRVSON] 
ESPCITRYSOFF 1" (18); "[COMMGI":PRI 
NT"[CRSRRICRVSONICSPCILRYSOFF 1"5SPCC 
18), "[COMmMGI" 

219 PRINT"CCRSRRICRVSONICUSPCICRYSOFF 1 
"¿SPLC18);"[COMMGI" :PRINT"[CRSRRICRVSONI 
ESPCILRYSOFF 1"; SPC 18); "LCOMMG) 

220 PRINT"[CRSRRICRYVSONJUSPCICRYSOFF ] 

8" :5PCC16);"4LCOMMG]":PRINT"[CRSRRIERVSONI 
CSPCIORYSOFFI" ¡SPCC18)5" [COMMGI" 

221 PRINT"[CRSRRICCOMPMAD CRYSONI COMPA 
ERYSOFF 17C6CRSRR IS CELRSRRKISOCRSRRICSHIFTNI 
Yo PRINT"ESCRSRRIC1ÉCOMMTI" 

240 HR=INTCORNDC 141241): 0=0 

242 1FD=3THENMH=INT(RNDC1)412> :GUTOZ 

48 

243 1FD=2THENMN=641NT<RNDC1 742) :DOTO 
248 


247 MN=g 

248 IFMN=GORMN=1THENPRINT" HOM", HR 
"o USPCI" ¿RIGHTS C"0"+RIGHTSCSTRECSAMN 
2,1),2):G0T0250 

2439 PRINT"CHOMI", HR, Co SMN 

250 H=1 -kM=g 

251 IFRM2THENPL=VAL(MIDSCLHS, CH-1)4 
4+1,4)):60T0280 

270 PL=VHLCMIDICLE, (H-1)44+1,4)) 

280 PE=VAL(MIDSCBS, 4ARM+1,4)) 

284 IFRM=OTHENI1=22:P :G0TO298 
285 1I=VHLIMIDSCIPS, (RM-1)45+1,3)) 
286 PP=VAL(MIDSCIPS, (RIM-1)5+9,2)) 
290 POKEPB, 160: POKEPE+C0,0 

306 FORK=1T05: POKEPB+k411,PP:POKEPE+ 
KAI I+CO,M:MEXTK 

e + 240: FORK=1T010:NEXTK:POKE 
si, 

310 IFRM>2THENI=VAL(MIDSCIHS, CH-185 
+1,3)):P=VALCMIDSCIHS, (H-1)45+4,2)) 
60TO0330 

320 I=VWAL(MIDSCIPS, (H-1)45+1,3)): 
ALCMIDICIPS, (H-1)45+4,2)) 


330 PUKEPL, 169: POKEPL+CO, 6 
340 FORK=1T03: POKEPL+k*I,P:PUKEPL+KA 
1+C0, 6: NEXTK 
FORK=1T0600 : NEXTK 
1F02=1THENESO 
GETSS: 1FS3=""THEN379 
1FS$="[F17"THENRM=RM+12:G0T0379 
1FSs: F3]"THENRI=RM+2:G0T0379 
TFHR=HANDMN=RMTHENSOO 
G0TOUE00 
9 POKESZ, 240: FORK=1T010:NEXTK:PUKE 
s2,0 
80 POKEPB, 32: FORK=1T05- POKEPB+K411, 
32: NEXTK 
381 POKEPL,32:FORK=1T03'POKEPL+KA1, 3 
2: NEXTK 
385 1F0=1THEN240 
386 1IF02=1THEN2S1 
390 RM=RM+1 
391 1IFRIM11THENH=H+1 :RM=g 
392 IFH>12THEN250 
400 GOTO251 
500 FORK=1T0Z:PRINT"CHOMI"SPC(14);"S 
114SPC1";R+1) 
501 FORJ=11015:FORX=1T010:POKES3, 230 
NEXTX:POKES3,0:NEXTJ 
502 PRINT"[HOM1";SPCC14);"[4SPCI":PO 
KES3, 0: FORX=1T0200 : NEXTX: NEXTK 
503 ReR+1:W=0:PRINT"CHOM]";SPCC2Z0);R 


504 IFR=STHENPRINT"CHOMIFANTASTICO!L7SPCI 
"> FORX=1T0S0*POKES3, 190+X : NEXTX: POKE 
33,6: 60710708 

505 PRINT" CHOMIPULSALSPCIF?. USPCIPARA 
CSPCIEMPEZAR. " 

5606 GETSS 1FS$=""THENSOG 

510 PRINT"CHOMIC225PC]";:Q=1 0010384 


600 POKES1, 190: FORX=17T04408 : NEXTX: POK 
ES1,0:02=1 ¿RMN HSHR : Mshd+1 

603 6UTO3848 

650 PRINT"[HOM]";SPC(9); "CORREGIDO" 


TULDOO : NEXTX 

'¿THENIO 
654 PRINT" CHOMIPULSACSPCIF?ESPCIPARA 
[SPC IEMPEZAR 
655 6 "THENGSS 
657 A ete 1 
660 
700 
701 GUTO1SO 
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1 POKESAZAm,. o POKESG2A1, 5 
h=1032:E= 


4 PRINT"LOURIMISORSEUITS ICRSPRICELK 
ESPERESPD POR LSPCIERVOR FORT=1 TOA 
bm NEXTT 
5 G60SUE 


Mo Pu PRINT"ECLPICELE 1 
FORT =b-i 870: POFEI, 121: POKET+3254, 1 


40 FORT=M+32T70H=1STFP44:POKET-117 PU 
KET+8.118:NEXTT 

5% FORI=SE-1TUF-915TFFP9M:POKET.118:n 
KEI+2, 117 -NEXTI 

66 FURTSF+39101F+91 <PUKET. 12%: NEXTT 
70 FURI=1109 FORT=1T014: b=bi+s PUR, 
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102 PUREMA1 17 NEXTT bea: NEXTI 
= FORI=1T0%0 0D) =1:NEXTIMAX=9M: TT 


SS PRINT"L220RSRDINUMEROOSPOIANTER IO 
po 


87 PRINITAR<1S> CRSRUTPULSARESPOICRVSONI 


LURYSOFF JUSPCIPARAESPO IL INEA" 


88 PRINTTABC19)"PULSHARTSPOICAYSONTECRYSOFF ] 


ESPCIPARALSPCIRIMOUCILASRII 
di FORI=HTUR POKEL+C A POKET, 51 NEXT 


ss POKEC+24, 15 POKEC+6, 128 PUREC+S, 1 


100 IE TTM HENP 3 
110 NU=INT<RNI0 TI RMAXA +1 U=1M32 605 
UB4ma 
FURK=1T02 
X1=SINTORNTICTIACR-A+1)+A 
a x2=INTRNIO I+D CB-A+ 14H 
A 1FX2=X1THENISA 
32 INTORNDOT 1424 B-A+ 10 A 
TEX3= A 1084 3=X2THEN17M 
O L=-1 :GOSUBSM 
¿0 L=1 1=D-40- GOSUB3M8 : DUSIIBEA - 1F 
P=1THENK=2 
21M HEXTK 
215 IFP=1THENA 
217 POKEC+4, 33 
22% FURI=H+STO1/8%31FP9M POKE +05: P 
KEI. 3: dns CA PUKEI+44,81 
225 POKEC+L) 1/54 POKEC, 1/200AND 255 N 
EXTI EOI 
234 DOSUBBOÓ. [FP=1THENG3% 
240 POKEF+C,7 0 PMKEF+Fl+ge POKER ++, 
7 PUKEF+1 CUego FMRT= LIMA NEXTT 
250 POKEPO+, 1 POKEPO,FI+43- POKEPO+1 
+1 POKEPO+1,00+9a 
260 PUKEDAO. 1 POKEG-FI+48: POKEG+1+C0 
1:PUKEG+1.L0+4a 
270 GOSUBSOA: TFP=11HFN530 
26% POKEF+C, 5: POKEF 32: POKEF+1+0,5:P 
UFEF+1, 32: PUKEE+ 1: POKFE, 126 
POKFM+ 240,5: PUKEM+3.81 
GOSUBEAA : 1FP=1 THENG 3 
60SUR444: GOTO1H8 
POKEC+9.17: 1224: 1354 
FORI=1T05 
IF IS2THENTZ=44 
IFI>3THENI3=44 
D=x144heLe 0 17 
PUKED+C, SS PUKED, 32: POKES2+0,5 PO 
32 POKEXGA 5 PMKEXA, 42 
360 N2=r2rl2al 323+1 981 
395 TS ec 1241-42) : POKEC+1,NT:POK 
EC,NIZ2ANDISS 
370 PUKEXZeC E POKEX2 81 POKEX3+C +60 
En ree 81 PUFEDAC+4MéL 6 POKFD+48L, 


Son NEXTI POrEC+9. Mm PETRA 
400 FI=INTO4YONI 10) COS VONID FIA O: 
PO=su+3M8F 1 

IECOOMTHENPOSPO+C043- G0T0438 

PO=PO-54 

o RETURN 
TENIA THE Ne 
FORT=NUTOIMA 1 > vemaycr+no: MEXTT 


MAX=MAX-1-TI=TT+1 


5 5="L"THENPRINT"LINERESPCI 
YALSPCICANTADA" <GOTOSEA 
490 IFER=1HNDS4="B"THENPRINT"RINGDESPCI 
WAOSPCICANTANO GOTAS 
Sou 1FS5="L"THENLL=13PRINT"LINEHMLSPLI 
CORRELTALSPCIO 5 092% LOSURSSA GATOS? 
a 
510 1FS: “THENER=1 PRINT"BINGONSPTI 
IS 107 GOSUBSAR LTS 


s20 PRINT"ERPORESPCIAL ESPE IPULSAR":P. 
RINTTABC17>"PULSELSPC IDELSPCINUEVOLSPCI 


TRVSONILERYSOFF WSPTIOUSPCIORYSONIRERYSOFF 1 


525 GETSS: 1FS$=""THENS25 

530 GOSUB1174 

540 GOTO 43% 

554 PRINTIRECI7O "CONTINUAMOS" FOR =1 
TO3049 NEXTK GOSUB117M GOTOE4 

560 GETSS-1F5$: 107) 

Ses 1FS47"S"ANDS CN" THENSEO 


"L INERCSPC INOCSPCICORRECTA" GOTMSSA 
590 1FS$="N"THENBB=%-NUSUR1176: PRINT 
“BINGOLSFCINOCSPC ICORRECTO" -GOTOSA 
cóm 1FS$="S"THENLOSUE1 17M: PRINT" 
Ei, ed "> PRINTTARC17)"GANH"GA 
"pts" P=l 
619 PRINTTABC17)"FEL ICIOHDES" RESTO 
A 6O0SUBS20 FORT=1T04Hm NEXTT 

RETURN 
E PRINT"CCURICORSRD IOIIERESCS PCI 
GHRESFCIOTRACSPCIWEZ E SPC TONI 7" 
649 GETSS S$=""THENR4A 
650 1FSs="S5"THENPRINT"[CRSEDIESCSPCA 
LOCSPC IMEJORCSPO VUE LSPLIPUEDESESPC 1 
HACER" FORT=1 1013440: NEXTTGOTOLO 
560 1FS$O"N"THENE AA 
670 PRINT"OCRSED)TUESPOITECSPCILULSPOA 
PIERLES, CSPC ImD Ius” ENT 
689 FRINT"LCLRI"TRRC187"CRLKILPYSONI 
BINGOLRYSOFF 1% PRINT"L2CRSPDI" INPUT 
"CARTUNESCSPC IVENDI DIS: ¿PRINT 
690 INPUT"PRECIOLSP IDE CSPCIOADHLSPCT 
CARTON", PP:PRINT 
en INPUT"ZISPCIPARANSPC LINEA" /S5:P 


PS Y MPUT"ZESECIPARAUSECIBINGO"50 vi 


2 5 IMOTHEN7AA 
730 IFSS+CLC1MMTHENGL=INTCAASFP+357/1 
00) GB=INTCARAPRACC/ 140) GOTO 
740 GL=INTCAMAPRISS 140 E=HARPP=GL 


750 PRINT"(2CRSEDIPREMIOLSPCIACSPC IL. 
ACSPCIL INEA" OL "PTS" 

760 PRINT"C<ORSRIDPREMIOL SPC TALE SPOT 
BINGO"GBE"PTS' 

77% PRINT"C2CRSRDIPI SE LS PC TUNACSPCA 
TECLACSPCIPARALSEC IEMPE ZAR" 

780 GETSS: 1FS$=""THEN?80 

798 RETURN 

800 GETSS: 1FS$<>""THENGOSUB475 

810 RETURN 

828 POKEC+24,15:POKEC+6,0:POKEC+5,12 
8: POKEC+3, 99: 2=39M0 

NE READ > 1FM1=9THENPOKEC+4, 4: RETUR 


S24 R=INTOM1/10) 0=0M1-1M8R 382 

826 POKEC+1,0/255:POKEC  DANDZ55 

828 POKEC+4,M:POKEC+9,65:FORI=1T0408 
C(R+1):NEXTI 

830 GOTO822 

832 DATA25,6.259.5.2.2.2,516,1,26,6:2 
5,5,2,2,2,64,2,2,5,4,:4,5,2,2,4:516,7 


834 DATR15,6,24,5,2,2,2.5,6,7 1261612 
5,5,2,212.94,8 

880 PRINT"[CLRI":H=107:HH=1427 

890 FORI=SHTOHHSTEP44:POKET, 42: POKE I+ 
8,42:POKE1+11,42:POKEI+15,42:NESTI 
900 FORI=H+S9TOHH-21STEP4M:POKET, 92: 
POKE1+8,42:POKE1+13,42:NEXTI 

918 FORI=H+*1T0H+3: O POKEIT+209 
+42 PUKEI+404, 42: NEXT 

920 POKEH+4,42: PoERe es, 42: POKEH+24 


4,42: POKEHH+4,42 

930 FORI=H+45T0H+1255TEP40:POKEI,42: 
POKE1+240,42:NEXTI 

E AE AASASTEn4O +POKEI,42: 
959 FORI=H+20T0H+23:POKE 1.42: POKE 1+R 
142: POKEI+404,9.2:POKE1+908,42:NEXTI 
969 POKEH+12,42:POKEH+53, 42: POKEH+37 


5,42 
970 FORI=H+302T0H+304 : POKEI,42:NEXTI 


980 POKEH+64, 42: POKEH+344, 47: POKEH+3 
84,92 

990 PRINT"[160RSRD] [SC FSRRIPORESPCIR 
al +" FORI=1T0:000: NE 


7000 RETURN 

1139 POKE791,18:POKE7282,17:PUKE?83,0 
¿S1S69570 

1140 RETURN 

1158 PRINT"L22S5PCI":PRINTTABC<17>"1225PCJ 


1155 PRINTTABC17)"L225Pr 1" 
1166 RETURN 

1170 G0SUB1130 

1180 G0SUB1 154 

1190 GOSUBI 13M 

2000 RETURN 
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10 PUKES2, 29 POUKESO + 9: CLR 

2% PIKE I50ñA, 254 

22 ia dol POKEL, PEFK(76624+ 
1) NEXT 

EE PRINT"LCLRICACRSRTICIOCRSER ILRYSONI 


EA PRINT"LIMCORSRRTERYSIN J Vb 

26 GOSUR 3004 

e id] TEROFI 
d 

41 PRINT"T4CPSRDICECRSPRI(19/4/84)" 


: COLRI" POKE 3659, 240 

45 PRINT"CURNDOLSPCIO TAS CSPC IEL ESPAI 

Le LA SALSPCILALSPOI 
LA" 

db ARINT CCRSRDICSCESAR IACRSRCDERECH 

PIM: PRINT:1=25 

47 PRINT"EL [SPC IMAWIRESEC INUMEPOLSPCI 

DE": PRPINT"CCRSRDIVECESLSPCIPOSIBLE": 

FRINT"TCRSPDIHASTACSPC IOUE" 

E E SEL ESECIAESAEn 

1. 

49 PRINT"CZCPSRIESLPSRATCPRYSONTPULS 

ALSPCIUNHESPE TEC! ALRYSOEF 1" 

5 GETAS: TFXG=""THENSA 

58 POKE358659, 74M POKE 36579, 14% 

59 PRINT"[CLRI":PRINT"USCRSPUJLERSER] 

INTENTACSPCILEVANTAR";L :PRINT*LGURSRRI 


KILOS" 
€8 PRINT"[7CRSRDICECRSRRIATENCIONE 1" 


65 FORT=1T04u4A:NEXTT 

67 DETSS: 1FS$<>""THENEZ 

70 POKE36875,15 POKE36876,215:PRINT" 
ESCRSRIDLSCRSPRT IIA 

79 FORT=1 10500: NEXTT:POKE36878.0 

77 H=10:T15="900000" 

78 GETXS- 1FX5="[CRSRRI"THENP=P+1 

739 1FTI/6M+HTHENSZ 

89 GUTOrS 

82 PRINT"[2CPSATOESERSARIMIALTO Ip 


0KE36878,15:POKE36876.215:PUKkE36879, 
28 


83 FORT=1T0508:NEXTT:POKE36878. 0 
84 IFL>PTHENIDAD 
85 POKE36878, 15: FORL=13470254 : POKE365 


876.L 
ce ia 17044 + NEXTHM:NEXTL + POKES36879, 
14: 


87 PRINT"CCLR1“:PRINT"CACRSRDITENSPCI 
HACSPCICOSTADOUSPCIPERO, ..* 
100 POKESZ. 29: POKES6,24:CLR:POKE3686 


9,254 

119 FORI=5144T06668 :POKE 1 .PEFK(26674 
+1): NEXTI 

115 PRINT"LCLRIC4ORSADIC1UMORSARICRYSONI 
aa" 


117 PRINT"C1MCRSPRICRYSON 14" 
128 GOSUESUBA 
149 PRINT"[SCRSRIDECRSRRICILOCSPCICO 
NSEGUISTE 11" 
149 FORG=1T04940 > NEXTG: POKE 36869, 240 
¿POKE 36879, 63 
150 PRINT"[CLRI":PRINT"U3CRSPDICUANT 
OSCSPCIKILOSCSPCIONIFRES": INPUT" ECRSRDI 
AHORA" :L 
152 POKE36879,57: 6071058 
1009 PRINT"[CLR1" FRINT*E3CRSRDIC4CRSPRI 
LOLSPCISIENTO. [SPCISOLO" 
1010 PRINT"[CRSRDITENIMS E SPC IFUERZHCS PCI 
PARA" PRINT"CORSRDILEVANTAR" + P:PRINT 
“KILOS" 
INPUT"OTROCSPCIJUEGUCS NIC 
1Fv4="5"THENGOTO42 
STOP 
FORI=7163107183: REHDX:POKEI1,% WN 


FOR1=7344707359- READ: POKET ZN 


RETURN 
FORI=7168T107183:READX:POKET,2XN 


DA1A46,51,63,59,57,15,15,7 
DATA1?,24,252.720,156, 240,240, 


FORI=7344107359 : REHDX-POKE1,XóN 


DATA7?,7,7,7,3,3,3,7 
VATH224,224.,224,274,192,192,192 


RETURN 


El Pistolero, pág. 44 


GOSIB3M 
UATREM, 6h, 36,4, 41129,35,65 
THTR60,66, 36,724,048, 04,36 .056 
DATRA129,165, 165, 16%,255,74,4,24 
DHTH24.60. 1672.14, 21,195,195, 145 
DATA19S, 195,755, 55,66 .66-66,66 
DATRO,4.0,24.24.0,0,M 
19 DHTA24,24, 24.24,24,24,6,64 
11 POKES2,28:POKFS6, 28: CLP: FORI=7168 
10716847481: READX-POKET+X:NEXT:PRIN 
T"CCLRI"CHR$c 4) 
13 POKE36869,255:T13$="44m44A" 
15 FORI=1T1012:C0=INT<RNUCIO ALI INTO 
ADC 421422: PORET 22640, 2: PUKE30446+ 
C,0:NEXT 
20 Ti=8164: 185:k B?9=5 CP=3072 
0: 0=160:S=272:C1=6 C2=M:FORI=1 10501 
327822+66481 NEXT 
30 PRINT"CHOMICRYSON MUERTOS“M1 “CHOMI 
C12CRSRR IMUERTOS "M2 
31 PRINT"CHOM) ERYSONICORSRD VI ICRSPA] 


"AL OMIDECTIS, 3,2164 VALCRIGHTS CTI 
5,25) DUSUE1AM 

35 POKEJI.A POKEJZ,1 POKEJI+CP.B: POR 
EJZ+CP,A POKE 1145.00 POKFJ1=3,00- POKET 
245,00 POKEJ2-5, 0 

36 FORI=1T0S: POKECC 17,4: POKECCIO=S.,3 
PUKECP+OC 1) POKECP+CC IIS POKEC 
Des. 0 

37 CDC -272 0 1FOC11=2734THENPOKEC 
(DU POKECCIr+22,0:001)=8174 

38 NEXTI 

39 KI=PEEK(AS3)-K22PFEKC137) 

40 [FKI=1ANDCI=ATHENCI=1: 1FBICATHENB 


1=0 
41 IFK2=31ANDC2=0THENC2=1' IFE2COTHEN 


B2=0 

58 1FK1=2THENJ1=J1422 1FJ1=R18RTHENJ 
1281564 

55 1FK1=4THENJ1=J1-22 1FJ1=7702THENJ 
1=7724 

60 1FK2=23THENJ2=I2+22' 1F 3228207 THEN 
J2=8185 

65 1FK2=54THENIZ=12-22: 1F32=7723THEN 


110 1FTIS>="1M0 109" 1HEN3OA 

120 1FBL=MANDE/=9THENPRINT"CCLRI" O: 
115 

130 L0TO34 

149 PRINT"CHOMICCRSAIO IFB1=MTHENP 
RINT"CRYSONTCESPC 1" E GOTO 

145 FORI=1TOB1 PRINT"F":3NEXTI FOI= 
TN PRINT"ERYSONTESPEIORVSOFF 1" 
NEXTI 

159 PRINT"CHOMICCRSRDICIACRSARI" IF 
B2=QTHENPRINT" (RYSONICASPCI"-P2=u RE 
TUFN 

195 1F H-B2=BTHENIS? 

156 SA due Dd dal 
" ¿NEXTI 

157 FORI=1T0B2 PRINT"F";-NEXTI RETUR 


n 
160 Bl=B1-1 Di=J1+1 FORCI=11024 m1=D 
+ 


1+01 

165 IFPEEKCA1)=1 THEN =M1+1 

170 IFPEEKCH1)=20RPEEK (Al 1=30RPEEKCA 
1)=4THENPOKER1-1, 0: GOTO1S 

175 PUKEAIS POKECH+A1,0-POKEMI=1,0 
188 NEXTC1 

185 112% POXEHI, 0 RETURN 

cd B2=B2-1 D2=J2-1:FORC2=1T020 H2=D 


-C2 

195 IFPFEKCA2>=0THENMZ=M2+1 

200 IFPEEFS =2ORPEEK (AZ) =A0RPEEK CA 

2=9THENPOKER2+1,0- 00710715 

205 PUKERZ, 5: POKECP+AZ, 0: POKERZ+1 +0 

215 (102 

715 POKER? 00 C2=4 RETURN 

20% PRINT"THOM]C4CPSRDI CA VSMNTCZORSERI 

OTRHESPOIPARTI DA? CS EL 105 No" 

301 GETAS- 1FA5=">5"THENRUN 

302 IFAS<O"N"THEN3M1 

ee PRINT"(CLRI"CHRSCO9) :POKE36853,74 
HD 

320 PUKE35D69, 242: POKE36879./5 PRINT 

CHRS (8) "TOLRICRYSCN) BLE ILISPCILSHIFTLI 

ESHIFTOJUSHIF TS ICSPOIESHIFTRICSHIFTI] 

ISHIFTSICSHIFTTICSHIFTOJOSHIFTLICSHIFTEI 

CSHIFTRICSHIFTOTOSHIFTSIC9SPOI" 

330 PRINT"ESPOTESHIFTIDMEGOCSPCIPARA 

ESPCIDOSESPCIJUG. "-PRINT"CCRSEDICRYSCMI 

ESPCIOSHIFTMICSHIFTIILSHIE HIFTIJ 

ESHIFTOJESHIFTNJESPCICRVSDEF 1: CSPCIOSHIFTCI 

ARGATELSPCIAL"SPCOC12)"CONTRARIOE SPC) 

SI(SPCI" 

340 PRINTSPCC107+ "PUEDES." 

359 PRINT"C2CRSRTICSHIETE JUNE TON 

A 


360 PRINT"LCRSPOIISPCIOSHIFTHIRETEAC2S PCI 
TRYSONTESPLICTRLUSPEICRYSOFF 11 2SPCICRY3DNI 
L23P0J1023PCIIRYSOFF J" 

365 PRINT"LSPCIOSHIFTAIERIOL SPC ICAYSONT 
COMM, CSPCICRYSOFF 1125PC ICRVSON JEKSRe 
C(RYSOFF 1" 

378 PRINT"(SPCIOSHIFTDIISPAPOCSFL 1 IRVSON] 
SHIFTESPLILRYSOFF IL25PCIORYSONIERSE A 
(RYSOFF 1" 

375 PRINT"LCRSPOICSHIETE IULSHCSPOTERYS ON] 
ISHIFTSICSHIFTHICSHIFTITCSHIETE ICSHIFTT] 
¿ESHIFTOIOSHIFITICSHIFTRICSHIF TL) OSHIFTCO 
ISHIFTOJC2SHIF TM], * 

380 IFPEEK (56991097 THENSHO 

385 RETURN 
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10 REMAAMHSTER MINDOe 

15 DIM 1:14) 

20 POKES3281:1 

30 PRINT"CCLR1" 

39 T14= cama" 

340 PRINTIMEC14)"LREDICRYS ON MASTERLSPEI 
MINDURVSOFF 1" 

€9 PRINT"CIOCRSADI" PRINT"CR UI0SPr] 
REALIZAIMESPCIPORESET 1), CSPCISHLAS + P 
ULSALSPC JUNALSPT ITENL A" 

70 GET m3 1F más ttouTo 7 

EN PRINT" LOLA TEOREMA PC 1EL ES Pr JOR 
TENADURESPCIESCODECSAC IUNCSPIE 1 MERO 
USPCIALESPCIRZAR. * 

29 Mag N=9 B=á PESTURE 

100 PRINT"C2CRSRDIDECSP ICUANTOSCSEN] 
TERMINOS ESC ILESERISPCIELOSPI IN MERO 
PE 

105 INPUT A 

107 IF AC1 OP HA THEN SM 

199 Ds="(4SPC1" FOR 11 TO A Isis 
UBLKIESPCI" NEXT FOR 1=1 TO 40-24H. U 
$=15+"[SPCI" NEXT 

119 PRINT"C2CRSRDIDESFHESPC TOUELSPCT 
SELSPL IPUEDANCSPC IREPETIRCSPO ITERMIN 
os" 

129 INPUT"(5/N>"5K$ 

125 1F Bsc>"5" AND REC "N" THEN 12% 
130 PRINT-PRINT PRINT"PULSECSPCICUAL 
ÚUIERCSPCITECLA" 

135 GET CS: IF Cs="" LO 135 

137 1F B53"5" THEN GMSUELOAM L0TO140 


138 DUSIUBEZHówN 
140 GOSUB 8% -PRINT"(MLRI"- Os! IESMBA 


men+l GOSUE 7000 
FUR 1=1 10. 
70 GET CS 1F Có="" THEN 174 
IF CS<"1*" OR CS>"2" THEN 17 
CC YALIOS> ¿PRINTOS"LSPLI 
NEXT 
GUSUE 54m 
GUSUR Goma 1F Nsf THEN 300 
PRININCHSR UH" PRINT 
225 1F M8 THEN PRINT"CHOMI" DOSUBSA 
M0 PRINT"CIECKSPDI", 
230 6010150 
309 PRINT"LCLRICZORSPIMIE ALRSRR LEE DI 
“3 FOR ]=1 TO A:PRINT LEFTSCSTRACBCL 
33.2); 3NEXT 
340 PRINT TPRINT"HECHOLSPCOIENESPET 
“m5 “INTENT G0TO104m0 
345 GOSUE S3nuY 
360 GET HS:1F H$=""b0TO 360 


355 TF H5="5" 
350 END 

510 INFUT CSCT 

528 NEXT 1 

RETURN 

PUKE 942%6,%- FOR 
HEXT 

FOR%=1 10119: READ NEXT FOR I=1 
PUKE 54275,L(J):FOR 2=1 TO 1c2a 1 
HEXI 

O PUKES475,9 FOR 2=1 TO Deo2eJ> NE 


"GOTO 7A 


TO 7:FERD L 


83% NEXT OJ 
840 DATH 195.195, 195, 199,195.195,21 


850 DATA 80,50,00,59,50,59,5M4, 144,50 
¿E 6H) 01, 
864 RETURN 
16060 FOR l=1 TO A-ECI>=INTORNDEA 
+1 NEXT IS RETURN 

2000 FOR [=1 TO H 

10 BCL)=INTORNLCAAG 41 
24 FOR 2=M 10 1-1: 1F Kc 
o) 

2034 NEXT Z:NEXT 1 

2040 RETURN 

3000 E=0 N=0'FOR I=1 TO A:1F 
12 THEN N=b+1 

40005 NEXT 

3410 1F NA THEN RETURN 
3u20 FUR I=1 10A 

330 FOR J=1 TO AIF Colo=kc0o THEN 
E=b+1 

3094 NEXTIONEXT To E=b-M RETURN 

Sumo PRINT"CHOMICRUK IMSMUERTOCESEC IA 
=HERTDOC12SPCICREDI"0S"CBLUI" RETURN 


6ubo FOR 
54273,715 
e6U1M FUR TM 1SM-NEXT Z 

6078 POKE 542/2,M 

6u30 FOR 2 TO 154: NEXT 2 

A4 NEXT 1 

6050 RETURN 

7008 MESSTRECM) PRINT MIDES, 227" 
"THBI4), RETURN 

E004 POKE 54296,3: FOR l=l TO 3 :POk 
ES4 27 
8u10 FOR 
2u20 POKESA, 
8034 FOR / 
8044 NEXT 1 

Y POKES4 295,228: FOR 


TO 2 PORKE 542%6.3 PUKE 


TO 1MB:MEXT 2 
74,9 
TO 1AMNEXT 2 


STE 


BoA PULES4296,7:FOR M=1 TO 164 -NEX 
TH 

8u7b NEXT 

SuRd PURE 54295.0- POKES425é 0 

BuYa RETURN 
Sa FL TOR PRINTR< IO, CC Ly NEXT 
10000 PRINT"HASIESPC TARDAN RS RR Jo 
MINSCTIE, 3, 20 ME SCESRA MINUTOS 
11000 1$=<MILSCTIS. 
172009 PRINT 1% "P2CRS pe ISA GIN DI" 
Gum PRINT"LORSRUI OS CESRRDCRYSON JH 
ALSPC CONSEGUIDO RYSUEF 3" 

63901 PRINI"LCRSEMI" COR + 


RL ROS PRI ERYSON] 


PUNTOSCRYSOIFF 1" 
63902 RR=UUCAISA4E IA CAR LAA) ce 
AZ 

63905 1F REL THEN PRINTERYSONINUE 
VILSPC RECORDER YSDEF 1" PRINT"T LA RSRRI 
LORSRUI RR 

63945 PRINT 


LRYSONIRECORDERUSOFF 1"S1 
63999 PRINTPRINT*0UTEREOSE0 JJ ie E 
OTRHCSPCIVEZILSPE IS NEBOT 
a 


METEDURAS 
DE PATA 


En nuestra página 5 
cuando debería deci 


del n* 7, se repite “del C-64, pero es difí”" 
“con un solo drive” 


Líneas que faltan en “Nervios” de la sección Videocasino de 
nuestro número anterior. 


400 IFFR=ROGOTO630 
418 IFCAC1)>5080RCA(2)>508860T0730 


Errores corregidos del programa “auto" de la sección magia 
(C-64) del n* 7. 


10 X=49152 

20 READY: 1F'Y=-1THEN4O 

30 POKEX,W:x=X+1:ZZ+w:GOTOZO 

49 1F2<>12374THENPRINT"ERRORESPCIENCSPCI 
LASCSPCISENTENCIASCSPCIDATA" : END: REM 

$1 Z ES DIFERENTE... 

50 SYS49152: NEW 

108 DATA169,90,133,251,169,0,133,252 
¿169,19,141,2,3,169,192,141,3,3,96,3 
2,25 

110 DATA192,76,134, 
/251,133,251,144,2, 
33,99 

120 DATA165,252,133,98,162, 144,56, 32 
73,188,32,221,189,162,0,189,1,1,248 
19,32 

138 DATA210,255,157,0,2,232, 208,242, 
32,18,225,201,13,240,3,76,105,165,56 
,165 

140 DATA251,233,20,176,2,198,252,169 
/131,141,2,3,169,164,141,3,3,76,118, 


24,169,10,101 
252,165,251,1 


Errores de “Aventuras en el desierto” de nuestro n* 4 (VIC-20). 


READ. 


122 POKE38622,WC:POKF38624, WC 


READY. 


509 POKE36859 7,25: POKE36879. 31 


READY. 
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Suscríbase a 


MicroSisiemas 


y le llevaremos a su casa 
un APPLE Il c 


Suscríbase a MicroSistemas antes del 30 de noviembre próximo 
y participará en el sorteo de un magnífico ordenador personal 
APPLE ll c. 

Para los que ya estén suscritos también tendrán opción de 
conseguir el APPLE II c. Si desea conocer su número en el 
sorteo llámenos 
al teléfono 

231 23 95. 
Habrá también 
otros premios 
para nuestros 
suscriptores 
que daremos 
oportunamente 
a conocer. El 
sorteo tendrá 
lugar en 
nuestro stand 
del SIMO. 


BOLETIN DE SUSCRIPCION A MICROSISTEMAS 


] 
| 
| 
| 
l 
| 
| 
I 
L 


Nombre y Apellidos 
Puesto 

Compañía 

Actividad Empresa 

Dirección Teléf 
Ciudad D. P. Provincia 
Suscripción anual 2.950 ptas. 

Deseo iniciar la suscripción con el próximo número 

O Adjunto cheque por 2.950 ptas. 

DD Reembolso más gastos del mismo al recibir el primer número de la suscripción. 
(Enviar a Gravina, 13-19 Izda. Madrid-4 - Teléf: 231 23 88/95) 


1 


A q GE_ Í ÍEÉEÍÉÁÉÁÉ3Á$3O3SÁáÁo o o Q_ > 


de las siguientes instrucciones: 
10. POKES para protección de juego de caracteres. 
20-60. Traslado de los punteros al juego de caracteres para pos- 
terior utilización de ellos. 
70. Pixel de orientación del comecocos hacia la derech 
80, Pixel de orientación del comecocos con la boca cerrada. 
90. Pixel de orientación del comecocos hacia la izquierda. 
100. Pixel de orientación del comecocos ha 
110. orientación del comecocos hacia arriba. 
120. reación de muros del laberinto. 
130. Pixel de cre: n de bombas. 
140, Pixel de creación de monstruos. 
150. Pixel de cre: n de espacios en blanco. 
160. Pixel de creación de bombas. 
170. Pixel de creación de puntitos de puntos 
200. Data final. 
210-280. Instrucciones. 
290. Carga automática de la 22 parte y vuelta a la normalidad 
de caracteres. 
2) Es la parte donde se desarrolla todo el juego: 
430. Indica los bytes libres de que se dispone. 
450-470, Variables principales. 460=variables para utilización 
del joystick. 
490. Subrutina de presentación 
500. Conversión al juego de caracteres y función de teclas repe- 
titivas. 
$510. Color de fondo-pantalla: blanco 
550-640. Creación del laberinto y de los puntitos. 
700. Pregunta al teclado, 
660. Bombas iniciales. Van aumentando, 
720. Si consigues 2.200 puntos y te comes aquel signo, pasas de 
pantalla. Luego debes conseguir otros 2.200 puntos y así su- 
cesivimente. 


730. Variables para la utilización de joystick. 

740. Control de packman extra. 

800-850. Controla la posición de packman y sus choques contra 

los muros. 

900-970. Control de contelleo de packman y sus movimientos. 

980-995. Indica los puntos y cronometra el tiempo de aparición 

de los monstruos. Cada vez aparecen un seg. menos. 
995=control de retardo de aparición. 
2000. Subrutina de sonido de choque contra un muro. 
2500. Subrutina de sonido cuando come un puntito y contador 
de puntos. 
3000. Subrutina de aparición de monstruos, hasta la línca 4.060, 
junto con la aparición de bonus extra —4000, 4020— y de 
bombas —4060—. Si la salida de un monstruo coincide 
con la posición de una bomba o de packman pasa a la 
subrutina 4500 
4500-4580. Subrutina de sonido de destrucción de un packman. 
Si quedan O packman va a la línea 6000. 

4995. Primera subrutina de cambio de pantalla 

5000-5120. Subrutina de presentación y de cambio de pantalla. 
CREDITS. 

6000-6090. Subrutina de fin de juego 

6500. Subrutina de sonido de packman extra, —son cada 7500 
P—. Abarca hasta la línea 6540. 

7000-7040. Subrutina de sonido cuando comes un bonus extra 


Como pueden apreciar, este programa está realizado con grá- 
ficos definidos por mí, por lo que quiero felicitar sinceramente 
al equipo de COMMODORE WORLD por haber puesto un 
articulo sobre 'alta de resolución en el VIC-20. Sin embargo 
quiero aportar “algo”, si se puede llamar así, aportando un 
tema a tratar en la revista, y valga la redundancia; la utilización 
del cartucho del SUPER EXPANDER en el VIC. 


1 REM PRIMERA PARTE + 
'PINTH PACA 


UKET,PEEKCT+2560 


50 FORT=0TO? :REMUE,POKE715S+HAS+T, E 
NEXT 


60 501044 
20 DATASU ,60,126,118,126.112,112,12 
650 
80 DATAS1 ,60.126,118,16.126,126,12 
6,60 


96 DATAS2 60,125,118 
5 


,14,14,126, 


100 DATAS3 ,126,25%,255,295,.:47,207, 
207,78 
110 DATAS4 


130 DATAS6 


,40,16,56,124, 124,124, 


149 DATAS? 7,127,127 


178 DATR6O ,8,0,D,16,0,0,0,8 

250 DHTA-1 

210 PRINT"CCLRI" 

22 PRINT"RVSONTLREDIARRMALAEYRINTHESPCI 
PAOLA Ree CEL) 
PRINT"CORSRIIC4CRSRRICR 
PC JDERECHACRYSUEF J 22 

PRINT"LCPSRDICAC 
TZOUIERDACRYSOFFI";4 

250 PRINTICRSRDICACRS 
HERJOCRYSOFF 1: "55 » 


INTLEBLKI 


REGISTER LATELY 
CONTINENTAL, S.A. 
Balmes-297, pral. 2% A 
BARCELONA-6 

Teléf. (93) 200 18 99 
Información: Sr. FERRER 


NUESTRA EMPRESA 
AL SERVICIO DETODOS 


DEPARTAMENTO COMERCIAL: 


— Microprocesadores y ordenadores de gestión (gama 
Commodore) para el particular y Empresa. 

— Programas educativos, de juegos y de diferentes aplica- 
ciones. (Gestión, contabilidad) 


DEPARTAMENTO DE ESTUDIOS: 


— Cursos Programación Basic y Cobol 

— Cursillos de grabación 

— Prácticas con ordenadores y micro en la propia 
Empresa. 
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» 260 PRINT"CCRSRDIC4ICRSRRICAYSONIRESPCI 
Edie m6 
Er PRINTS: 


ICHRGANDOLSPCI 
SPCIUCRSRVICIONCCRSFDI 
,131'POKE193,1:POKE 35869 


"> POKES31 
(3 


NDA PARTE 
430 PRINTER BYTESESPLIFRLE” + FOR 
=1101000 NEXT: REI 


450 SC=u HU=a Ll l=3: Tw=1:Lk=/ 


su Ck=1 


460 POKES7151,4:PA=37151:Pk= 
37154 


7152 :RB 


500 POKE 368: 
14 POKEVO+1.25 

¡590 PRINT"ECLRICHOMICRSRDICBLK 17 
PIPRITRICIRTRITRO Eo: 

570 PRINT"7CCC <7<: 
77 CPC 


7rECO 


55: POKEGS0, 128 


Pr 
610 PRINT"?<<7<77 
<CCPECPIPPPECCCC 
cerdas 

620 PRINT"?<<<?< 
POPICPLCCCCCPIPCT 
<ecrn; 

630 PRINT"7CCCCS 
640 PRINT"227777 
600 FURF=1T0TY-FG=INT<RNDO 1 M416)+44 
PUKEDAE ESS+DM+FG, 2:NEXT 
700 DETHS 
710 POKE??. 


240+ IOANDPEEK (QU+X+VA22)= 
25: 6070464 

'EEKCPA) + POKERB, 127 : B=PEEKCPB> 
ERB, 255 

IFSi LFTHENGOSUBESO 
IF (HAND >= THEN Y=4=1 M0 
IFFEERCOMex+wa: 
¡ITHENY=W+1 > COSUB2000 
TF HANDS )=0THENY=+1 
TFPEEK ERA SORPLER comes 
S9THEN 
IFCAHHDIE> 


54 


TFPEEK CONAN VRZ2 7 =SSOKPEEKCQU+x+ 
22)=59THEN; 
TFPEEKCON+x+ 1422 )=00T HENGOSUB250 


IFPEEKCOL+2X+W422)=S55THENGOSUB709 


A FORT=1T010w HEXT 
960 PRINT"LHOMICRYSONTEGRNISCORE :";S 
C;"CSPCITIME "5 YWALCTIS> 


990 IFYALOTIS>=34 


-HTHENGOSUE 3000: H=H 


IFH>=1STHENI 
PUEEOMA A+ WR 


OTO70a 
2000 POKEVO. 15: POKE: 40 POKES3, DR 
ETURN 
2500 POREYO, 15 POKES 31,255: POKES 3-1 
+14 RETURN 


TOS+ At! 
INTORNDC 149153444 
HEN: 
IFPEEK COM+AR)=S9ORPEEK 
1THEN4Són 

3040 POKEOIAAR. 57 PUKECALe 


AAA 


HA, 5 


3068 POKEVO. 15: FORNN=150T POKES3 
+ NE PURES3.4 
3974 Tus NEXT 

EoMe nh, 5 


40 IMTCRNDC 174100) 
4014 HU=INTORNDC1144 151444 

4020 IFHB=SORAE=ETHENPOKEGU+HU, 56 PO 
KEDM+3S+ HU, 4 

9054 AUSHU+]:PRINT" HOM] CRA 
MSC, "ESPEITIME £ 


TFALO=1STHENALI=4 
4060 FOKEOM+ AR, 53 POKESS+UbAHA, 4 RET 


4500 POKES3+1 
94995 POKEOM+AR, 57 
=15TUOSTEP-1 
O, RE 


0uBUOa" 

4575 POKEDU+AR, 98 

4580 RETURN 

4995 CRECR+1:TYaTW+2: 10=10+2 
RN 

5000 POKE36869,240:PRINT"[CLRI":POKE 
Y0+1,110 

5010 FORRE=1T010-FORT=110250 NEXT 

5020 PRINT"[CLRI":FORT=1T0210:MEX1:P 
FINT"CUHTIC. ROJASESPCIPRESENT: CHOMICIOCRSEDI 
TECRSERISCREEN: "¡CR:NEXT 

5025 PRINT"LCLRICIOCRSRDICRYSONTLWVEL1 
ARMALAEYRINTHOSPCIPACK RC BLUTCRYSUFF] 


10: RETU 


6n08 POKEZ 
6010 PRINT"[CLRICZCRS 0 
JENMALABYRINTHO: SPCIPACK NAAA LELUILRYSOFFI 


3 PRINT"[CR: RIJCMHTISCORE 5 

34 1 RECTHENREC=SI 

6040 PRINT" [CRSRDO CMHTIFECURD: * PEC 
6050 FRINT"CL DICHHT CREDIT: "¿CR 
6960 PRINT"TC DICHHT IHHOTHER! 216 
AMECSEC ISI ESPCI?" 

6170 DETHT: 1FAS=""THENGO?O 

6089 1FA$="S"THENISO 

6094 END 

6500 FORJI=1T025:POKEYO, 15: POKES3, 
a] 

6518 FORT=11025: NEXT 


NEXT 
1+1 RETURN 


7000 POKEVO, 15 


¿LL=170100 : POKES3, INTORNDC1% 


KEYO, Mm: POKES3, 0 
C+S08: RETURN 
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C-64 


Estas lineas van diri- 
gidas más especial- 
mente a los que, como 
yo, sois novatos en 
el arte de ordenar 
ordenadores. Los otros, 
los de mayor y mejor nivel, también pueden leerlas, pero que 
sean indulgentes con lo que para ellos pueden ser herejías 
informáticas. 

A la vista de las cifras de venta de máquinas CBM, pienso que 
no soy el único novel. A mí me pusieron los Reyes un 64 y entré 
en faena. También me suscribí al encantador Mundo del Com- 
modore y empezaron las sorpresas. 

Algunas personas me decían que un ordenador es una 
máquina tonta a la que hay que enseñarle todo. Primera sor- 
presa: La máquina no es tonta; la máquina es inflexible. Y me 
llamaba tonto a mí, con la delicada frase: Syntax error... ¡A 
vosotros también? 

Pero no hay que desanimarse. Adelante. Comprendiendo o 
más bien intuyendo que el Manual del Usuario es un librito 
escueto con el que se consigue poca cosa más que cambiar 
grados centígrados a fahrenheit y unas insulsas pelotas rebo- 
tando, pasamos a adquirir la Guía de Referencia, ¡oh maravilla! 
3.000 pelas. Ahí empezamos a entrever que hay otro mundo 
detrás de otras puertas. 

Los autodidactas continuamos insistiendo. E intentado 
aprender. En éstas, el cartero llama y nos trae el primer número 
de Commodore World. Como fieras transcribimos a nuestro 
teclado los progamas. ¡Caramba!, ¿pero se pueden hacer cosas 
como el Editor de Sprites de José Ramón Lasa? ¿Cuándo lle- 
garé yo a eso? Leemos el Editorial, en profundidad y nos llega 
al alma sobre todo el párrafo de crear un Club de Amigos de 
todas las edades y de admitir cualquier idea o programa más 
simple. 

¡Ah! Esto es muy bueno. ¿Debería yo enviar ese programilla 
que soluciona los problemas de velocidad, tiempo y espacio? 
A lo mejor ya está muy visto... Reflexionamos que es posible 
que nuestro mejor logro, nuestro mayor éxito en programación 
de novatos está ya más que hecho y superado. Y continuamos el 
estudio de la Guía de Referencia, con la pregunta en pie. ¿Envío 
0 no envío el programilla? 

La Guía, entretanto, se encarga de amargarnos. Ya está 
hablando de cosas como Selección de Banco y Adaptador com- 
plejo de interface, ¡Qué barbaridad! Bueno, nosotros a lo nues- 
tro. Vamos a copiar el ejemplo de los dibujos en alta resolución 
a ver qué pasa. ¡Sopla!... Ya me he cargado el ordenador. Pero 
no. Aquí dice que la pantalla se llena de porquería. Entonces 
debe ser normal, Menos mal que el libro ha avisado. Sigamos. 
Ahora la curva del seno. Pues no funciona. Tardamos algún 
tiempo en comprender que los puntos de la sinusoide deben 
esperar su turno para salir. El libro debería haberlo advertido 
para no darnos otro susto. Ahora entendemos por qué nos 
decían que el Basic es lento, cuando observábamos que era 
capaz de imprimir la tabla de multiplicar en un periquete. 

En éstas llega el número 2 de la Revista. ¡Qué voy a enviar yo 
mi miserable programilla! Menudo listado tiene Manuel 
Torralba a sus trece años con el Topo Loco manejando pokes y 
peeks a todo plan. Y, entretanto, la Guía de Referencia haciendo 
de las suyas. En la página 88, después de hacernos teclear ocho 
sentencias, nos dice textualmente: ¡Usted acaba de crear un 
signo (Q en color invertido!... Pues no veo yo... 

En fin, otra vez en alta resolución y después de averiguar que 
al libro le falta un next, pintamos un semicírculo en la panta- 
lla... por fin. 

No nos desanimemos amigos, sigamos insistiendo en el estu- 
dio y machacando teclado, que siempre algún fruto sacaremos. 

Y como ayuda-guía os envío este programilla que bueno o 


Ignacio Ortega Ortigosa 
Virgen del Carmen, 19 d/2* B 
Algeciras - Cádiz 
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malo, funciona, dedicado especialmente a aquellos que sin 
grandes conocimientos ni experiencia como yo, se han desilu- 
sionado en principio al ver que el ordenador no perdona 
cuando te equivocas. 

Me anima enviarlo también el ver que poco se ha tocado 
hasta ahora en las posibilidades gráficas del 64 y que con los 
dos ejemplos del libro tampoco hay para mucho, 

Siento no poder prestar un arreglito para los Vie-ciosos del 
20, pero mis modestos conocimientos me incapacitan para eso. 

Novatos... animaros a enviar cosas. Aunque os parezc: 
superadas por hace ya tiempo, nos pueden servir a los dem 
principiantes. 

Y ahora al trabajo: 

Rutina 1.—Líneas 1000 a 1040. Todo esto está calcado de la 
Guía de Referencia. Es lo que nos asustó cuando lo pusimos en 
marcha la primera vez. Coge la pantalla y la hace un churro 
pero eso sí con un divertido coloreado. Luego se formaliza y es 
como si quisiera dos telones. Podéis cambiar en la línea 1030 en 
el pokel que está en 3, el código de vuestro color favorito (negro 
no vale). 

Rutina 2.—Líneas 1100 a 1115. También fusiladas de la 
Guía. Es la fórmula que da el libro para pintar un punto deter- 
minado en la pantalla y encima diciéndote que el Basic puede 
invadirlas, 

Rutina 3.—Líneas 2000 a 2350. Es el lío que me he inventado 
para pintar líneas a voluntad punto a punto. Seguramente se 
podrá hacer con menos instrucciones o por otro procedimiento 
más fácil. No lo sé y me da igual, porque éste funciona y es mejor > 


E] Tele Sant Just 
N Mayor, 2. Tel. (93) 371 70 43 
SAN JUST DESVERN (Barcelona) 


INTERFACE para recibir y transmitir 
CW y RTTY en el VIC-20 y 
COMMODORE 64 


INTERFACE para poder conectar cualquier 
cassete a los ordenadores 
COMMODORE 64. 


BASE DE DATOS en cassette 
ARCHIVO DE OSL 


“NECESITAMOS DISTRIBUIDORES” 


D que el del libro que deja puntos separados en algunas zonas 
Este pinta rectas y, con un poco de astucia, unas curvas preciosas 

Programa para utilizar estas rutinas: 

Línea 20.—Sitúa el centro del dibujo en el centro de la panta- 
lla. Si mueves esos valores el dibujo sale en el punto elegido. 

Lineas 70 y 80.—Se hace el reparto de vértices simétricos y 
determinan la dirección del segmento. 

Y todas las demás hacen el cálculo de los puntos y direcciones 
que han de llevar de una forma continua 

Podéis volver a la pantalla normal con Stop y Run/stop- 
restore. 

Si queréis el ambiente más cargado podéis añadir. 

225 NP = NP + 1: GOTOS0 

La coordenada vertical tiene 200 puntos, por lo que os acon- 
sejo que el radio exterior no supere el número 100 porque si no 
el dibujo queda incompleto. Pero si lo hacéis, tampoco se 
rompe nada (veréis que esto de las averías me preocupa mucho 
y es que los Reyes están todavía pagando las letras). 

Me gustaría que Pere Masats, artista neurocirujano informá- 
tico, nos fabricase unas rutinas en CM para que todo este lio de 
cosas fuese menos lento, especialmente las rutinas 1 y 2 que son 
los desesperantes cambios de decorado. 

Tengo otras cositas monas sobre el mismo tema. ¿Las que- 
réis? No dejéis de trabajar, insisto, y mandad lo que tengáis por 
tonto que sea. Yo he aprendido más de las cosas de otros, sobre 
todo las facilonas, que del libro. 


1 REM. 


ASTRAL. 


eN 


8: 
19 PRINT"[CLRI" 
20 CX=160:Cy=100 
30 INPUT"[3CRSRD]EZCRSRR INUMEROLSPCI 
DELSPCIPICOS" ¿Mi 


12 
40 INPUT" EZCRSRDIC2CRSRRIRADIOCSPCIE 


2CRSRDJL2CRSRRIRADIOLSPCI1 
NTERIOR" ¿RN 

69 GOSUB100u8 

70 AN=24n/NP 

gu Di=r/NP 

90 X1=CX+RMACOS CAN) + Y1=CY+RMAS INCANO 


100 FORI=1TONP 

110 AN=AN+DA 

120 X=CX+RNACOS CAN) : aC Y+RNAS INCAN) 
130 [x=X-X1:Dv=Y-Y1 

140 X=X1:Y=wv1 

150 GOSUB2000 


Y1=Y : AN=AN+DA 

RMACOS CAN) Y=CY+RMAS INCAN) 
X=X1: DY=Y-W1 

X=x1:vawy1 

GOSUB2008 

Xlax:Y1ew 


1000 REM PASE A BIT MAPPED 

1001 REM "[206COMMY1" 

1005 BASE=2M4096: POKES3272 + PEEK(5327 
20R39 


1819 POKES3265,PEEK(53265)0K32 
1020 FORI=BASE TOBRSE+7993:POKE1,0:NE 


1634 FURI=1024102023:POKE1,3:NEXT 
1040 RETURN 


1042 
1098 REM.....CALCULO DEL PUNTO. ... 
1099 REM "C21COMM ae 


1100 CH=INT(x/8> 

1110 RU=INT(Y/8) 

1120 LN=wAND? 

1130 Ey=BASE+KUA320+BHCH+LN 
1140 Bl=7-C(XAND?> 

1150 POKEBY, PEEKCBW)ORCZ1B1)> 
11539 RETURN 

1998 REM CALCULO BEL SEGMENTO 
1999 REM"[25PCIC23COMMY 1" 
2000 Xl=X:Wi=Y 

2010 X2=X1+DX:Y2=Y1+DY 
2015 IFAESCDX>>ABS (DY )THENZ200 
2020 IFIYCOTHENZ100 

2030 FORS=SY1TOW2 

2040 GOTO2118 

2080 RETURN 

2100 FORS=Y1TOYZSTEP-1 

2110 X=(X1+DX/(-DV)A(W1=S)) 
2120 Y=S 

2130 6UsUB1100 

2140 NEXTS 

2150 RETURN 

2200 IFIX<OTHENZ300 

2230 FORS=X1T0X2 

2248 G0TOZ310 

RETURN 

2300 FORS=X1TOX2STEP-1 

2310 Y=(W1+DW/(-DX)HCX1=S)) 
2320 X=5 

2338 GOSsUB1100 

2340 NEXTS 

2350 RETURN 


Como es el primer 
programa un poco 
largo que hago, tal 
vez lo encontréis un 
poco liado y desor- 
denado; pero como 


Higinio Porta López - 16 años 
Avenida Huesca, 20 
Sariñena (Huesca) 


funciona, ya vale. 

El programa ocupa casi toda la memoria del VIC, deja 36 
bites libres. Es una pena que el VIC tenga tan poca memoria. 
Por esa falta de memoria no he podido hacer la presentación 
mejor. 

Ahora paso a explicaros de qué va: 

Es un juego parecido a los de marcianitos, pero no os asustéis, 
cambia en algunas cosas. (Espero que no hayáis aborrecido ya a 
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VIC 20 


SIN AMPLIACION 


los pobres marcianitos.) 

Manejas la nave por toda la pantalla persiguiendo al marcia- 
nito —sólo hay uno—. Debes disparar y darle, es decir, hacer 
blanco en él. 

Al principio dispones de 3 tankes (naves) y 8 tiros —que 
pledes aumentar— por cada tanke. Cada vez que le das consi- 
gues 10 puntos y un tiro más; si fallas, lógicamente, pierdes el 
tiro. Cuando agotas los tiros pierdes el tanke, y si agotas los 
tankes... 

Todo esto se explica en la presentación del programa, pero 
aún hay más: A los 200, 400 y 800 puntos consigues 2 tankes 
extras. ¡Ah!, y si consigues el récord, pones tu nombre. 

Nada más, sólo me queda animar a todos para que manden 
colaboraciones. Yo creo que ayudan mucho a los principiantes. 


Ass 


1 SPCINADIE" 

2 POKE36879,25 

5 POKE36978,15 

6 GOSUB1 1006 

10 6=7500:L=3134:A3=40 

TR=3 

13-AB=114: 12=115:DE=107 


3 PRINT"[CLRI" 
50 FORP=2/24107745: DUSUB1MO : NEXT 


70 FORP=3165T08185:G0SUB100: NEXT 
80 FORP=8163T07767STEP-22:G0SUB100:N 


XT 
98 60T0119 

100 POKEP, 102: POKEF+30720.4 RETURN 
110 PRINT"LHOMIGUEDAN", TN; "TANKS" TR 
¿"USPCITIR 

120 PRINT"CHOMICCRSRDIPTS";PT;“L3SPCI 
RECISPCIPTS" HP 

130 POKEG,42:POKEG+30720,Y9 

140 POKEL. HR :POKEL+30720, 8 

1000 POKESS0, 255 

1610 GE IAS: 1FHS=""THEN00Y 

1020 1FAS="L"THENC=1 :POKEL,32:L=L-22 
GUSUB74O 

1030 1FA$=", "THENC=2:PUKEL,32:L=L+22 
¿GOSUB70m0 

1040 1FA$="Z"THENC=3:POKEL,32:L=L-1: 
GUSUEOUO 

1050 1FAS="X"THENC=4 :POKEL, 32:L=L+1 
GUSUB700a 

1060 IFA$="[SPCI"THENGUSUB7010:G0SUB 
3000 

1070 IFC=1THENIFPEEK<L>=102T1HENL=L+2 
2: G0SUB7020 

1080 IFC=2THENIFPEEKC(L)=102THENL=L-2 
2:G0SUE7024 
IF THENIFPEEK(L)=102THENL=L+1 


1 
¿GOSUB7020 
1100 IFC=4THENIFPEEK(L)=102THENL=L-1 
:GOSUB7020 

1110 IFFEEK(L)=42THENPOKEL, 42: DOSUB? 
pia *G0SUB4200 : GOSUB4M10'L=8130 + POLEL 
,Hl 


1120 IFC=1THENPOKEL + AR: POKEL+30720, 48 
1130 IFC=2THENPOKEL + MB + POKEL+30720,0 
1140 IFC=3THENPOKEL, 12 POKEL+30720, 8 
1150 IFC=4THENPOKEL, DE : POKEL+30720, 4 
2000 POKEG, 32 

2010 F=INTORNDC1)K5+1> 

2020 IFF=1THENG=G-22' IFPEEK(G)=1027H 
2040 IFF=2THENG=0+22: IFPEEK(6)=102TH 


ENG=G-22 
Na IFF=3THENG=0-1 + IFPEEK(G)=1027HE 
1 


e 2000 ¡RES STRSNOsOrA 1FPEEK(G6>=102THE 
NG=G= 

2100 B=FEEK(G) 

2110 IFE=1070RB=1130RB=1140RE=115THE 
NPORKEG, 42 ' GUSUB 7048 : DOSUB4200 'L=8138 
s 6USUBIC10:POKEL + HR 

2120 POKEG,42:POKEG+3072M, 0: POKE3687 
4 a NEXT: POKE36874,4:60 


USUB4940: RETURN 

3939 1FS=42THENPOKEN, 32 : GOSUBEOGO : TR 
=TR+1:GUSUE7030: GOSUE4010: RETURN 
399 Y=y+1 

3140 IFY<>1THENPOKEN, 32 

3110 IFK=ARORK=ABTHENPOKEN+M, 233: POKE 
N+M+34720,8 

3120 1FF=120Rk=DETHENPOKEN+M, 64: PUKE 
N+M+30720,0 
3158 11 

3149 60T03060 

40600 TR=TR-1: IFTR=0THENTN=TN-1 LDUSUB 
7040: TP=8: POKEL.32:L=8130: POKEL.AR-G 
OSUB4 140 

4019 PRINT"CHOMICI4ORSRRI "TE “LORSALI 
ESPCI" RETURN 

4100 IFTNSOTHENPOKE 96374, 0: G0T0SM00 
4110 PRINT"CHOMILECR: 3"; TH; "LORSRLI 
ESPCI" :PRINT"CHOMJCICRSKRIT" :RETÍ 
4200 TH=TN-1:TR=8: IFTN=OTHENPOKE3687 
5,0: G60T0S040 

4210 PRINT"LHOMICECRSRRI"; TN; "LORSRLI 
LSPCI" :PRINT"CHOMICICRSRRIT" RETURN 
5000 PRINT"[CRSRUIC7CRSKRIOL7ORSRR IO 
[SPC1" 

5001 PRINT"C9CRSRDICECASARIGAMELEPOI 
OVER" ¿FORU=1T04000 : NEXT : GOSUB 11006 
5005 PRINT"LULRICORSRDICORSRA] JUEGOS 
ESPCIMAS?" :PRINT" [HOM] C3CRSRDICCRSRRAI 
(S/N) ":POKE36878, 0 

Su10 GETZS: 1F29=""THENSOLO 


Sólo GUTOSe1a 
5999 REMPLINTUSAARRARAR 


1166109 

BUTHENGOSUESOON  POKE36879 
+24: TN=TN+2: GUSUB4210 

6007 _1FPT=440THENGOSUBEDOD : POKEJ6879 
431: TN=TN+2 y 
6048 IFPT= 


E] 
UBSBOY: POKES6379 


210 
6010 PRINT THOMILCRSI RDJUSERSARI" PT 
RETURN 
6104 PRINT"CHOMILORSRDIC17CRSRRI", HP 


á lá 
7010 PUKE36877,237:FORU=1T058-NEXT:P 


0KE36877,0:RETURN 
7620 FOKE36876, 150: FORU=1T020:NEXT:P 
0KE36376,0:FETURN 
7030 FORU=IS5TOOSTEP=1:PUKE36876, 232+ 
U-FORR=1T010:NEXTR,U: PÚKE36376,0:RET 


41055: PUKE3C876, 200+0: NE 
XTO:POKE36876, 0: RETURN 

7050 POKE368674,242:FORU=1T050:MEXT:R 
ETURN 

5000 PRINT"CHOMIC13CRSRDICSCRSER T BON 
us" 

3018 FORA1=1T080:POKE36876, INTCRNDC1 
)4128)+128 :FORA2=1T010:NEXTA2,A1 + POUK 
E 76,0 

3020 PRINT"[HOMIC13CRSADI (SLESRRICOSPCI 
'ETURN 

A3=A3+1: 1FA3=17HENIFHPOBTHENPR 
CHOMIL1SCRSRDICSCRSRAR JNUEYOCSPCI 
RECORD" : 507096019 

9095 RETURN 

9010 FORA1=1T050: POKE36876, INT<RND<1 
14123)+128 -FORA2=1T018:NEXTAZ. Al :POK 
E36876.08 

9020 :PRINT"CHOMIC1SCRSRDICSCRSER IL 125PCI 
"RETURN 

10009 IFRP<HPTHENRP=HP -GOTU 14 
10010 IFRP<HPTHENRP=HP :GUTOU10020 
10015 60T01M190 


e 
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> 10020 POKE36878,0:PRINT"[CLRICCRSRDI 
ECRSPRITU CITIENESCSPCIELESPCIRECO 
RD!" :POKE356879, 156 
10030 PRINT"LHOMIC3L 
IBECSPCITUCSPCINOMBRE * 

109949 INPUT" [HOMILSCRSPDICO 


RD] CCRSRRIESCR 


1"5A4 


$ 

10050 PRINT"CCLRICORSRDI CSC RSRRIRECO 
RDMAN: 

10060 PRINT"LHOMIUSCRSRDIL7CRSRRI "GA 
45 

19070 FORU=1T0S689: NEXT 

10084 RETURN 

10100 PRINT"[CLRICORSRDICCRSPRILOCSPCI 
SIENTO, [SPCINOLSPCITIENES":PRINT:PRI 
NT" C8SPCIRECORD" :POKES 
10110 PRINT:PRINT"[HOMICSCRSKDIC?CRSRRI 
LOCSPCITIENE : [CRSRDI" 

10120 PRINT"CHOMIL?CRSRDIC?CRSRRI"¿A 

44: FORU=1TOS004 + NEXT 

16130 RETURN 

11000 PRINT"ECLRICORSRDICICRSKK IHAZL SFC] 


BLANCOCSPCIENCSPCIEL" 


11019 PRINT"CCRSRDICECASRRIASTERISCO 


11020 PRINT"LCRSPDTCCRSRRIZ=IZDH. " 

11030 PRINT" CIX=DECHMA. * 

11040 PRINT"LCRSRDILORSRR IL=AFRIBAL4SPCI 
ABAJO" 

11050 PRINT"[CRSRDIC3CRSRRIESPACIOSD 
ISPARO 
50 PRINT"CCRSRDICORSERITIENESISPCI 
3 CITHNK SPC IT" 


LANCO: 

11099 PRINT"ICRSRDIC7CRSERI1ESPCITIR 
OLSPCIMAS" 

11100 PRINT"CCRSRDIC6CRSARI10ESPCIPI 
NTOS[SPCIMAS 

11110 PRINT"LCRSEDICICRSER IPULSHLSPCI 
UNAL JTECLA" 

12000 GETHES: 1FAG$=""THEN1Z2000 

12001 RETURN 


Os remito un pro- 


grama, en realidad 
io tres subrutinas, que 


Zaragoza - Tel. 34 00 70 creo que servirán co- 
É mo complemento al 


artículo publicado en 
el número 3 de abril titulado PRINTS SOFISTICADOS. Están 
hechas para su uso en un Commodore 64, aunque creo que son 
fácilmente adaptables al Vic, Lo primero que quiero puntuali- 
zar es que no he querido agrupar líneas de programa mediante 
la técnica de los dos puntos para hacer más fácil su compren- 
sión, por lo que cada uno es libre de agrupar las líneas que 
pueda. Así mismo he separado lo que son palabras Basic y 
variables dejando un espacio entre ambas, también por el 
motivo anterior. Y paso ya a explicar un poco el programa. 

Comienza en la línea 10 solicitando Print 1, 26 3. 

Línea 20: Filtra los caracteres que no sean 1,26 3 no dejándo- 

los pasar. 

Pide dar entrada a una cadena. 

Desvía la ejecución del programa hacia una de las 

subrutinas elegidas. 

Línea 40: Bucle de tiempo antes de volver a ejecutar de nuevo 
el programa. 

El programa no tiene más. Ahora paso a explicar las 
subrutinas. 

NUMERO 1: IMPRIME ALTERNANDO UN CARACTER 
DE IZQUIERDA Y OTRO DE LA DERECHA 
DE LA CADENA. 

Línea 1010: Mide la longitud de la cadena. 

Línea 1020: Si la longitud es impar añade un espacio por la 
izquierda a la cadena, Si es par añade un espacio 
por la izquierda y otro por la derecha. 

Línea 1030: Inicia un bucle para imprimir los caracteres de la 
cadena. 

Línea 1040 a 1070: Se encargan de imprimir un carácter de la 
izquierda y desplazan el cursor los lugares nece- 
sarios a la derecha. 

Línea 1080 a 1090: Imprimen carácter de la derecha. 

Línea 1095: Vuelve para imprimir otros dos caracteres. 

Si os habéis fijado, la subrutina no trabaja imprimiendo los 
caracteres de uno en uno sino que primero imprime uno de la 
izquierda y uno de la derecha, luego 2 de la izquierda y dos de la 
derecha, etc... 
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Prints sofisticados <:: 


NUMERO 2: DESPLAZA CADA CARACTER DE LA 
CADENA A LO LARGO DE UNA LINEA Y 
LUEGO REPITE POR LA LINEA SIGUIENTE 
HASTA QUE EL CARACTER OCUPA SU 
LUGAR 

Línea 2010: Inicia el bucle para la impresión de todos los 
caracteres. 

Línea 2020: — Si el carácter es un espacio establece V en cero 
para acelerar el bucle de tiempo de la línea 3060 
y 2060. 

Línea 2040 a 2080: Desplazan el carácter correspondiente por 
la línea superior. 

Línea 3000 a 3080: Desplazan el carácter por la línea inferior 
después de haber bajado una línea el cursor en 
2090. 

Línea 3090: Imprimen el carácter definitivamente. 

Línea 4000: Sitúa el cursor para en la línea 4010 volver a 
tomar otro carácter. 
Creo que se puede adaptar para el VIC si en la línea 2040 
ponemos 21 y no 39. En la 3000 ponemos lo mismo. 
NUMERO 3: IMPRIME UNA CADENA. LUEGO TOMA 
CADA CARACTER Y LO VA DESPLA- 
ZANDO POR LA LINEA DE ARRIBA 
HASTA QUE LO COLOCA DELANTE DE 
LA CADENA QUE HA IMPRIMIDO. 

Linea 5010: Mide la cadena y asigna a C un valor que es el 
del doble de la longitud de cadena. 

Línea 5020: Imprime la cadena en el lugar correspondiente. 

Línea 5030: Establece bucle para impresión de caracteres. 

Línea 5040: Sitúa cursor sobre carácter a desplazar, lo borra 
y lo sitúa en la línea superior. 

Línea 5050: Establece bucle para desplazar el carácter. 

Linea 5060: Imprime carácter. 

Línea 5070: Bucle de tiempo. 

Línea 5080: Borra arácter del lugar en que está, para en la 
5090, seguir con el bucle de desplazamiento. 

Línea 6000: Sitúa definitivamente el carácter en el lugar que 
le corresponde. A la variable C que se utilizará 
en la línea 5040 para situar el cursor sobre el 
siguiente carácter a desplazar, le resta 1. 

Línea 6010: Vuelve para tomar otro carácter. 

Y nada más, me despido esperando que os hayan gustado 
estas tres subrutinas. 


5 REM IAMIMRRRRARAARA RARA 

6 REM Aóok SUBRUTINAS PRINT xk 

7 REM MR POR J.LUIS MUNOZ soe 
BAREMO ORO ORAR 

10 PRINT"[CLRI":PRINT "[9SPCISOLICIT 
ACSPCIPRINTESPCI1 Y 

20 GET CS: IFCS= "1" OR C$= " 
m "3" THEN25 

22 60TO 20 

25 INPUT" [2C0RSRDI[YSPL IUNACSPCIPALAB 
RALSPCI"; AS 

27 PRINT"C2CRERDI" 

30 ON VAL(CS$)GOSUB 1400, 2400, 5000 

40 FOR L=1 TO 600:NEXT L:GOTO 19 

1009 REM SUBRUTINA PRINT NUMERO 10K% 
IMM  A A 
MAA 

1019 L=LENCAS> 

1020 IFL/2 <> INT(L/2) THEN A$="[SPCI] 
"+AS:L=L+1:G0TO0 1030 

1025 As="[SPC1"+A$+"[SPCI":LaL+2 

1030 FOR QU=i TO L/2 

1040 PRINT LEFTS<A$,00):PRINT"ICRSRUI 


1050 FOR KKw=1 TO 90:NEXT KK 

1069 FOR MM=1 TO L-1:PRINT"[CRSRRI"; 
¿NEXT MM 

1078 LsL-1 

1080 PRINT RIGHTSCAS, QU) :PRINT" [CRSRUI 


1090 FOR KK=1 TO 90:NEXT KK 

1995 NEXT 00 

1998 RETURN 

20068 REM SUBRUTINA PRINT NUMERO 2x4 
AS 
dll 


" OR C$ 


2019 FOR MM=1 TO LENCAS> 
2020 1F MIDSCAS,MM,1)="[SPCI" THEN Y 
=9:GOTO se 2040 


2049 FOR 00= 1 TO 39 

2050 PRINT MIDSCAS, MM, 1); 

2069 FOR KK=1T0 V:NEXT KK 

2070 PRINT"ICRSRLILSPCI"; 

2089 NEXT 00 

2090 PRINT"ICRSRDI"; 

3009 FOR QU=l TO 39-MM 

3050 PRINT MIDSCAS, MM, 1>; 

3860 FOR KK=1 TO V:NEXT KK 

3070 PRINT"[CRSRLICSPCIC2CRSRLI"; 
3080 NEXT Un 

3099 PRINT MIDSCAS, MM, 1) 

4000 PRINT"[3CRSRUI"; 

4010 NEXT MM 

4020 RETURN 

5000 REM SUBRUTINA PRINT NUMERO SAN 
AARRARARAARIA A RRARRIAAAAARAAAA 
NAAA 

5610 L= LENCAS>:C= Le2 

5020 PRINT TAB(L+2); AS 

50639 FOR MM= L TO 1 STEP -1 

5040 PRINT"[CRSRUI";TAB(C+1);5"[SPCILCRSRUI 
[CRSRL 1"; 

5059 FOR QQ = L TO O STEP -1 

5060 PRINT MIDSCAS, MM, 1); 

5070 FOR KKw=1 TO 70: NEXT kK 

susu A RA 
5099 NEX 

6680 PRINTS LCRSRDI"5 MIDSCAS,MM,1>:C 


6010 NEXT MM 
6020 RETURN 


Me llamo Román 
Estébanez y vivo en 
Pamplona. Poseo un 
commodere 64, un 
cassette y una impre- 
sora MPS-801. Os man- 
do estos trucos y dos programas que espero sean de vuestro 
agrado. 


Román Estébanez Santesteban 
16 años - S. Fermín, 49 - 1% izqda. 
PAMPLONA (Navarra) 

Tel. 236 372 


Los trucos son los siguientes: 


1. Este truco facilita el paso en la impresora del modo 
mayúsculas y gráficos al de minúsculas. Consiste en pulsar den- 
tro del PRINT+ la tecla del cursor hacia abajo. En la pantalla 
aparecerá un Q en vídeo inverso. Esto hará que la impresora 
comience a escribir en minúsculas sin necesidad de usar ningún 
CHR$. 

Para volver al modo mayúsculas basta con pulsar dentro de 
las comillas la tecla del cursor hacia arriba. 


2. Se trata de un truco para facilitar la búsqueda de un 
programa en el cassette. Basta con colocar un cable desde la 
patilla N* 5 de la salida audio/vídeo al cable N* 4-d (blanco- 
lectura del cassette) en el port del cassette. 

Abriendo el volumen con un POKE 54296,1 podremos moni- 

torear a través del altavoz de nuestro televisor lo que hay gra- 
bado en la cinta, ayudándonos a encontrar los programas por 
su pitido inicial. 
NOTA: Este truco es muy sencillo en el cassette antiguo, ya que basta 
con introducir un cable pelado por el hueco que deja el cable blanco en 
la parte trasera del conector. En el modelo moderno habría que des- 
montar la clavija y hacer la conexión oportuna. 
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Aplástalo y portadas <:: 


Aplástalo 


El juego consiste en aplastar a todos los “malos” posibles en 
el menor tiempo. Tú conduces al último ejemplar de la raza 
humana, y en un desesperado intento, has de aniquilar a todos 
los enemigos que se crucen en tu camino. Dispones de dos 
minutos. 

El procedimiento para aplastarlos es empujando unos enor- 
mes bloques de piedra de manera que quede aplastado por el 
enorme peso y perezca..., pero eso no es todo. Tu enemigo 
posee varias vidas y se reencarnará en otro punto de la pantalla 
hasta que se agoten sus “nuevas vidas”. Por cada pantalla que 
logres superar, el número de reencarnaciones se incrementará, 
haciendo más dificil tu labor (este número se indica en la parte 
superior derecha de la pantalla). 

Al término de cada pantalla se mostrará el tiempo invertido y 
una bonificación acorde con el tiempo. 

Otro procedimiento de obtener puntos es juntando los tres 
valiosos diamantes dispersados por la pantalla. En un principio 
son de color amarillo, para que puedas divisarlos fácilmente, 
pero cuando los mueves retornan a su color negro. Si lo consi- 
gues lograrás 10.000 puntos. 

En principio dispones de tres vidas, indicadas en la parte 
superior central de la pantalla. Si bates la puntuación récord, el 
ordenador te pedirá que entres tu nombre para figurar así en la 
tabla mundial de aplastadores. ¡Animo y suerte! 


DESCRIPCION DEL PROGRAMA 


Líneas Comentario 
10-160 Inicialización y generación de caracteres. 
200-290  Inicialización pantalla de juego. » 


Cuando se tiene 64 K de memoria, 
una magnífica resolución, 16 colores, 
efectos tridimensionales con sprites, 
un sonido equivalente al de un 
sintetizador, un teclado profesional 
con 62 caracteres gráficos, toda una 
amplia gama de periféricos, la más 
completa gama de programas 
educativos, profesionales y de video- 


COMMODORE 64 


juegos...; en resumen, cuando se es 
un ordenador personal como no existe 
ningún otro en el mercado y el más 
vendido mundialmente, es muy difícil 
decir sin orgullo que eres un 
Commodore-4. 

Claro que más difícil todavía es decir 
sin orgullo que tienes un Commodore-64. 
¿Por qué no lo comprueba? 


2 


E 


. 


COMMODORE 64 
LE DA ACCESO A MUCHOS 


ACCESORIOS 


Unidad simple de disco (Monofloppy) 170 K 

Cassette 

Plotter e impresora, 4 colores, 
14 c.p.S. 


Impresora matricial, tractor, 
30 c.p.s. 


Interface RS232. 
Joy Stick 
Paddle. 


Cursos de Introduc- 
ción al BASIC. 


y 


COMMODORE 64 
LE MUESTRA PARTE DE 
SUS PROGRAMAS 


Utilitarios y lenguajes 
MONITOR LENGUAJE MACRO ASSEMBLER. 


MAQUINA. PROGRAMMER'S 
FORTH. UTILITIES. 

LOGO TURTLE GRAPHICS Il. 
PILOT. MASTER. 


Sistemas operativos 
FILE/BOSS. CP/M. 


Programas de aplicaciones 


EASY SCRIPT. 
Proceso de texto de gran potencia. 


CALC RESULT. 


Hoja electrónica de cálculo. 


EASY CALC RESULT. 


Versión simplificada del CALC RESULT. 


MAGIC DESK 


Proceso de texto y gestión de ficheros. 


AGENDA TELEFONICA. 


Programas educativos 


MUSIC MACHINE. 
MUSIC COMPOSER. 


VISIBLE SOLAR 
SYSTEM. 


SPEED/BINGO MATH 
FISICA 1 
MATEMATICAS 1. 
HISTORIA 1. 


Juegos 
JUPITER LANDER. 
KICKMAN. 
SEAWOLF 

RADAR RAT RACE 
TOOTH INVADERS. 
LAZARIAN 

OMEGA RACE 

LE MANS. 


PINBALL 
SPECTACULAR. 


AVENGER 
SUPERMASH 


GEOGRAFIA 1. 
GEOGRAFIA II. 
JUEGOS EDUCATIVOS. 


TEMAS 
MONOGRAFICOS 


CONOCIMIENTOS 
GENERALES. 


QUÍMICA | 


FROGMASTER. 
GRID RUNNER. 


ATTACK 
OF THE MUTANT 
CAMELS. 


THE PIT. 

MR. TNT. 

6 GAME PROGRAMS. 
BINGO. 

ROOTING TOOTING. 


MINESSOTA FAT'S 
POOL CHALLENGE. 


.. y seguimos ampliando la lista 


El ordenador personal de la 
familia más potente 


" commodore 


COMPUTER 


MICROELECTRONICA Y CONTROL, S.A. 
c/. Taquígrafo Serra, 7, 5.”. Barcelona-29 
c./ Princesa, 47, 3.” G. Madrid-8 


D> 300-540 Rutina de juego. 

540-670 Controlador del movimiento del bloque de piedra. 

700-730 Examina posición de los diamantes. 

1000-1150 — Presentación del juego. 

2000-2030 — Bonos extras por juntar los diamantes. 

2500 Actualiza la puntuación. 

3000-3080 — Pantalla de tiempo realizado en el juego 

3500-3520 Actualiza marcador de supervivencia (N% de 
vidas) 

4000-4040 — Rutina variable de sonido 

4100-4130 — Sonido de muerte del humano 

4300-4320 — Reencarnación del “malo”. 

5500-5510 — Fin de tiempo. 


6000 Rutina de inicialización del sonido 

6500 Cálculo de números aleatorios 

7000-7030 Localización de la reencarnación (posición en 
pantalla). 


8000-8020 — Pantalla de récord batido. 
9500-9520 — Datas del humano, malo y bloques. 

Este programa usa el joystick en el pert, 2. Moviéndolo en las 
4 direcciones te desplazas por la pantalla, y apretando simultá- 
neamente el botón de disparo empujas al bloque en la dirección 
deseada. 


Portadas 

Este sencillo programa sirve para hacer portadas para los 
cassettes, de manera que sean fácilmente reconocibles. 

Al ejecutarlo pide por pantalla el nombre del programa que 
va a ocupar la primera cara, luego el de la segunda y finalmente 
el nombre del autor o autores. 

Automáticamente la impresora empieza a realizar la tapa, 
marcando los límites superiores, inferiores y lateral derecho. 
izquierdo queda delimitado por el propio papel. El texto que 
imprime es susceptible de modificación, Yo opté por esta pre- 
sentación por gusto particular. 


E 
5 REM moi APLASTALO MA 
10 00=53280:V=34272:POKEV+24, 15: DIM 
SP(15):H5="CBMISPCI64":HI=20008 

28 FOR R=1 TO S:RERAD COCR):NEXT R:FO 
RR=1 TO 12:RERD SPCR):NEXT R 

40 D(1)=1:D(2)=-1:D(3)=40:D(4)=-48:5 
S=1024:6C=12288: JO=356320 

60 IF PEEK(GC>=56 THEN 160 

70 POKES2, 48: POKESE, 48 

80 POKES6334, PEEK(56334)AND 254 :PRIN 
T"(CLRIL4CRSRDI[45PC]ERVSONJGENERAND 
OCSPCICARACTERES” . 

90 POKE 1,PEEKC1)HND 251 

109 FOR 1=8 TO 1232:POKEGC+1,PEEKCI+ 
53248) : NEXT 

110 FOR Te216 TO 247:READ A:POKEGC+T 
+RENEXT T 

120 FOR 1=6C TO 0C+7:READ A:POKEI-A: 
NEXT _I 

138 FOR 1=1288 TO 1287:READ A:POKEI+ 
GC,A:NEXT 

135 FOR 1=648 TO 655:READ A:POKEI+GC 
¿A:NEXT 

148 POKE 1,PEEKC1)0R 4:POKE 56334,PE 
EK(563340R1 : 

160 POKES3272, (PEEK(53272)AND240)+12 
:POKE 53281,8:POKE 53280,6:G0T0 1009 


200 PRINT"[CLRIL2CRSRDIC2SPCICCOMMAJ 
[33SHIFTCILCOMMSI" 

220 FORT=1T020:PRINT"1[2SPCICBLKICSHIFTBI 
CBLKIC33SPCICBLKIESHIFTBI":NEXT T 

230 PRINT"L2SPCICBLK]CCOMMZIC33SHIFTCI 
[COMmx 7" 

231 PRINT"[SPCIHIGHLSPCISCORELSPCI:" 
HI" "HS; :PRINT" [HOM] [SPC IUP1C9SPCI 


VIDAS: LéSPC IMALOS:" 
237 GOSUB 3508:FORT=1TONB:GOSUB 6598 


260 POKE SS+X1+40MW1, 160:NEXT: IR=9:F 


R=2530:SR=10:NV=1 

278 FOR U=l TO 3 

275 K=INTCURNDCO)M31)+9 

280 Y=INTCRNDCO)A18)+5: 1F PEEKC(S5+48 
1Y)(932 THEN 275 

285 POKESS+X+40AY, 90 POKESS+A+40AV+S 
4272,7:G0SUB 4000: NEXTU 

290 X=13:Y=10:T1$="000000":MM=54:PB= 
100:52=8 

300 P=SS+x+40'Y:POKE P,0:0=58+1N: POK 
E0,81 

310 RR=PEEKC(U+D(S)): 1FRR=O_ THEN 300 
315 1F T1$>"000200" THEN 5504 

328 IF RR <232 THEN S=INT(RNDC0)44)+ 
1:GOTO 318 

358 IN=IN+D(S):DSPEEKC(JO): IF 02127 T 
HEN FORR=1T030:NEXTR:GOTO 449 

368 1F (OANDS)=0 THEN X=X+1:N=1:CA=2 
7:GOTO 418 

378 1F (OAND4)=8 THEN X=X-1'N=-1:CH 
28:G0T0 410 

388 1F (OANDZ2>=8 THEN Y=Y+1:N=40:CA= 
30:60T0 418 

398 IF COAND1>=8 THEN W=vY-1:N=-40: CH 
=29:GOTO 418 

408 GOTO 448 

410 IF(PEEKCP+N)=1600éRPEEKCP+N)=30)A 
NDCORND16)=9THENXX=N : POKER, CA: GOSUBS 


08 
420 POKEP,32:1F SWs0 THEN Sh=1:POKEP 
0-XX,42:FORR=1T060:NEXT R:POKEPO-XX, 


32 

430 1F PEEKCP+N><932 THEN X=x=N:GOTO 
440 

440 POKEO,32:G0TO 388 

500 POKEP,81:POKE 0,32:NV=7:GOSUB 41 
90: VI=VI-1: IFVICITHEN1000 

540 GOTO 268 

668 GOSUB 600: POKE V+4,129 

618 PO=P+Xx:SW=8: PA=PEEKCPO) : 11=INTC 
RND(0)44)+5: YU=B: POKEPO+54272, 0 

626 PORSPO+XX: YUsYU+11: IFPEEKCPO>=B1 
THEN S1w1:MP=81:G0T0 648 

630 1F PEEK(P0)<32 THEN 8408 

640 POKEV+1,YU:POKEPO,PA:POKE PC,CO: 
POKE PO-XX,32:SW=1:G0T0 620 

668 IF PEEK(PO-XX>=90 AND $288 THEN 
GOSUB 769 

670 POKE Y+4,0: RETURN 

700 W=PO-XX: IF S2=1 THEN RETURN 

710 FOR T=1 TO 12 STEP 2 

720 IFPEEKCM+SPCT))=9OANDPEEK (M+SPCT 
+1))=90THENFORR=0TO9 : GUSUB2000 NEXT: 
RETURN 

730 NEXT T:RETURN 

1008 IF SC>HI THEN 9000 

1001 POKE V+24,15+64:POKE V+22,255:6 
OSUB 6088:POKE V+4,129:POKE V+1,100 
Nv=] 

1002 POKE V+23,1 

1003 FOR 1=255 TO 18 STEP- .5:POKE Y 
+1,T:POKE V+22,T:NEXT T 

1025 PRINT"LCLRICCRSKDICBLKILSSPCIRO 
MANTSPCIESTEBANEZESPCIPRESENTA. + +": 1 
R=230:FR=10:SR=-20:G0SUB 4404 

1026 PRINT"[3CRSRDIL 105PCIMARESPCIAP 
LASTALOESPC Ika": GOSUB 4000 

1038 PRINT"C2CRSRDJ[BLKJCSSPCIILESPCI 
LLSPCIBESPCIECSPCITLSPCI. . . [SPCIESTE 
[SPCIERESTSPCITU. ":GOSUB 4000 

1049 PRINT"[CRSRDIC3SPCICREDILSHIFTO] 
[SPCICBLUJISHIFTOILSPCILCOMMSICSHIFTOI 
ESPCILBLK]. . . [SPCIESTOSESPCISONLSPCI 
TUSISPCIENEMIGOS" :GOSUB 4468 

1059 PRINT"[2CRSRDIC4SPCIDESPLAZALSPCI 
LOSUSPCIBLOQUESCSPCIDELSPCIPIEDRA":0 
OSUB 4409 

1068 PRINT"L2CRSRDI[4SPCIPARHLSPCIAP 


L 
44/Commodore World Octubre A A 


LASTARESPCIAESPCITUSCSPCICONTRARIOS. 
":GOSUB 4000 

1079 PRINT"[4CRSRDIC2SPCIRALSPCIPULS 
ARLZSPCI" FUEGO” [25PCIPARALSPCICOMENZ 
ARTSPCIAR":GOSUB 4000 

1080 IF PEEKCJO)=111 THEN 1099 

1081 FOR T=35+54486 TO 55+544395:POKE 
La NEXT T:CO=C0+1.5:1FC0>30 THEN € 
|=8 

1082 GOTO 1080 

1090 IN=172:S5=2:51=0:NB=140:BA=3:Y]= 
3:PP=20:SC=g 

1150 00TO_ 208 

2000 PRINT"CHOMICCRSRDIC4SPCIARALSPCI 
10. 00BLSSPCIBONUSCSPCIPOINTSESPC II 
":POKE 53281,2:POKE 53280,2 

2015 1R=200:FR=40:SR=-20 NV=30: GOSUB 
4090: 52=1 :POKES3281,8:POKES32899, 2 
2030 PRINT"CHOMIICRSRDICISSPCI":SC=S 
C+10000 : GOSUB2500 : RETURN 

2500 PRINT"CHOMIC4CRSRRI"SC: RETURN 
3008 POKE 53280,2:PRINT"[CLRICIBSPCI 
CLASIFICACIÓN" :S2=0 

3015 MS=MIDS(TTF,3,2):RS=RIGHTSCTTS, 


2 
3020 PRINT"[SCRSRDIC?SPCITIEMPO: ":PR 
INT"C[CRSRDIC?SPCI"M$"[SPCIMINUTOS 
3049 PRINT"[CRSRDIL7SFCI"R$"ESPCISEG 
UNDOS. ":TP=0 
3060 BP=(120-VALC(R$>)4100: BM=0: 1F M$ 
="00"THEN BP=BPX2:GOTO 3078 
3078 PRINT"[4CRSRDICSSPCITIMELSPCIPO 
INTS="BP:SC=SC+BP: BM=8:NV=10: BA=ER+1 
:GUSUB 4000 
3073 1F BA>8 THEN BA=3 
3098 FORR=1T02000:NEXTR:POKE 53280,6 
¿GOTO 208 

:00 


3500 PRINT"[HOMI"TAB(32)"[?7SPCI" 
E FOR T=1044 TO 1043+VI:POKET,0:N 
pS 


SUB 2500 


3520 FOR T=1055 TO 10655+BA-BM:POKET, 
81:POKET+54272,8:NEXT : RETURN 

4000 DOSUB 6940:FOR R=1TONV:FUR T=IR 
TOFRSTEPSR 

a POKEV+1,T:NEXTT,R:POKEV+4,0:RET 
URN 

4108 GOSUB 6098 

4120 FOR T=200 TO 6 STEP -10 

4130 FOR R=T TO T+10:POKEY+1,R:NEXT 
R,T:POKEV+4, 0: RETURN 

4300 PUKE 0+54272,0:PB=(21BM)K100: IR 
25 FR=60:Sk=5 

4310 FORU=1 TO 5:POKE Q1,COC(U) :GOSUB 
4000'NEXT U 

4320 POKE 01+54272,0: RETURN 

5500 PRINT"C[HOMICICRSRITCGCRIGRRICSPCI 
CICRSRR JAME SPCIF INESPCIDELISPCITIEMP 
DLSPCIAR" 

3510 1R=255:FR=20:SR=-1'G0SUB 4009:0 
oTosee 

6008 POKEV+5, 16:POKEV+6, 128: POKEV, 75 
¡POKEV+4, 33: RETURN 

6500 X1=INT(RNDCO)M33)+3: Y 1=INTURNDO 
0)20)+3: RETURN 

7000 GUSUB 6S4u 

7020 IN=W140+X1: BM=BM+1:0=35+1N:5C= 
SC+PB:NV=1 

7025 IF BM=BA+1 THENTTS=T1$:FORT=1T0 
130:POKEQU, T:NEXT:NB=NB+S:MA=MA+.5:G 
OTO 3008 

7038 GUSUB4300 :GOSUB3508 : GOTO 678 
8989 IF Si=1 THEN S1=9:GOSUB 76808 
84819 GOTO 668: PRINT"EWEL3CCOMM17":NY 
=1:IR=200:FR=20:SR=-10:G0SUB 449 
9009 PRINT"[CLRIC4CRSRDICSSPCIHASISPCI 
BATIDO(SPCIEL[SPCIRECORDESPCI! 11" 
9010 FORTY=1T02: IR=10:FR=200:SR=10:6 


0SUB4940 : IR=200:FR=10:SR=-18:G0SUB40 
08: NEXT 


9050 PRINT"[3CRSRDIC3SPCITULSPCINOMB 
RE[SPC1";: INPUT H$: IF LENCN$)12 THE 
N PRINT"[SCRSRUI":GOTO 9058 

9868 PRINT"[4CRSRDI[2SPCITELSPCITEND 
RELSPCIENCSPCICUENTALSPCIPARACSPCILO 
S":Hl=sC 

9078 PRINT"C2CRSRDIC?SPCICAMPEONATOS 
[SPCIDEL [SPC IMUNDO. " : FORR=1T03000: NE 
XTR:GOTO 1006 

9502 DATA 46,43,42,87,81,1,2,1,-1,-1 
,72,-40,-80,40,-49,48,80 

9503 DATA26,8.15,8,8,24,36,68,56,16, 
240,16,16,24,36,34,186,146,124,16,16 
,16,40 

9510 DATA 108,0,0,0,56,84,146,170,17 
0,56, 16, 124,84,84,16,40, 102 

9529 DATA 126,195,153,165,165,153,19 
5, 126,130,€8,56, 40, 126,56,68, 130 


10 REM PORTADAS DE CASSETTES 
20 REM 
30 REM ROMAN ESTEBANEZ. . . . 22-05-1984 


35 REM 

58 PRINT"CCLRIC2CRSRDICESPCIPORTADAS 
[SPCIDELSPCICASSETTE" 

60 PRINT"[3CRSPDINOMBRE (SPC ILELCSPCI 
PROGRAMALSPCICARALSPCI1 "5: INPUT N1S 

65 PRINT"[3CRSRDINOMBRE(SPCIDELLSPCI 
PROGRAMACSFC ICARHISPC INPUT N2$ 

70 PRINT"[2CRSRD INOMBRE C(SPCIDEL (SPCI 
AUTOR"; : INPUT NAS: IF N28="" THEN NPS 
=N1$:G0TO 39 

75 NP$=N1$+"[SPCISCSPCI"+N2$: 1F LENC 
NP$)>37 THEN RUN 

89 OPEN 3,4:BS$=CHR$(16) 

85 GUSUB 200: PRINTH3:PRINTRZ 

9 PRINTS, CHRS(14)"[CRSFEDIMACSPCILSHIFTCI 
OMMODORELSPCI64 [SPC IARESPCICORSRUIISHIFTBI 


95 PRINTS: PRINTAS, CHR$C15>"[CRSRDICI1SPCI 
[SPC ISOFTWARELSPCI==-[SPCICCRSRUI 
B9"38[COMMN]" 

100 PRINTHS IRT=1T0(38-(LENCNP$)+4) 

3/2: PRINTOS, "ESPCI"; ¿NEXT T 

110 FOR T=1 TO LENCNP$)+9:PRINTHS, "[SHIFTO] 
"¿NEXT T:PRINTOS 

115 FORT=1T0(38-(LENCNF$)+4))/2:PRIN 

TAS, "ISPCI"; NEXT T 

120 PRINT "[SHIFTOJCSPCI"NPF"TSPCI 
[SHIFTO1"B$"38LCOMMNI" 

125 FORT=1T0(38-(LENCNP$)+4))/2:PRIN 

TOS, "[SPCI"; NEXT T 

130 FOR T=1 TO LENCNP$)+4:PRINTHAS, "CSHIFTO] 
"¿NEXT T:PRINTHS 

135 PRINTH3:PRINTH3, "[CRSRDIC?SPCIOSHIFTBI] 
YISPCI"NAS" [CRSRUI";B$"38LCOMMNI":PR 
INTH3 

140 PRINTRS: PRINTH3, CHR$(14)"[CRSRDI 
MALSPCIUSHIFTC JOMMODORE [SPC 1541 SPCIA 
AUSPCICCRSRUILSHIFTBI"CHR$(15) 

145 PRINTW3:GOSUB 204 

156 PRINTH3, "[CRSRDICSPCIOSHIFTCIARA 
[SPCIA: [SPCITCRSRUI"N1$ 

155 PRINTR3, "[CRSRDIISPCILSHIFTCIARA 
[SPCIB: [SPCILCRSRUI"N2$ 

160 GUSUB 240 

165 PRINTH3:PRINTR3, "[CRSRIDL?SPCICSHIFTBI 
YUSPCI"NAS" [CRSRUI"BS"38[COMMNI" 

170 PRINTH3: PRINTS: PRINTH3:GOSUB 28 

e 


180 RUN 
200 FOR T=1 TO 39:PRINTR3,"-";'NEXT 
PRINTH3: RETURN 
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Pokes (VI) 


Por Diego ROMERO 


He recibido bastantes sugerencias por 
teléfono y por correo sobre esta serie de 
artículos, y como toda la revista está 
abierta a Opiniones constructivas, creo 
que tenéis razón en que es mejor publicar 
el mapa de memoria completo y luego ir 
analizando las distintas partes. 

Algunas de las cartas recibidas decian 
que no estaba siendo suficientemente 
detallado con las funciones de las posi- 
ciones de memoria, por ejemplo con la 
posibilidad de copiar una zona de memo- 


ria en otra utilizando las posiciones de 
memoria 88-96 (publicado en magia en el 
número 6), la posibilidad de climinar la 
interrogación en los inputs, etc 

Creo que en mi defensa podría mencio- 
nar las cartas recibidas en sentido contra- 
rio (querian que fuese más rápido). 

Como para poder contentar a todos o 
al menos a la mayoría deberia hacer una 
encuesta y atenerme a los resultados, pero 
esto tardaría bastante y muchas veces las 
encuestas no son fiables porque los que se 


ee CE cores E 

Lesps perl Pointer: Start-of-Basic DOAO-00A2 160-162 

0038-003C Previous de line number O0AA 170 

So AS pobmcoRc 85100 
: 

0062-0065 Accum mantissa e? 138 
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suelen quejar no las contestan 
a publicar el mapa de memoria del C-64, 
que fue publicado en Club Commodore, 
luego el del VIC, y quizás alguno de los 


pasamos 


PETs. Cuando terminemos con todos 
ellos, creo que podemos dedicar esta sec- 
ción a comentar las posibilidades de las 
posiciones de memoria más útiles y popu- 
lares sin tener que seguir el orden numé- 
rico como hasta ahora, mientras tanto 
estoy abierto a sugerencias (las prefiero 
por carta, por favor). 


Description 


Accum82: Exponent, etc. 
Sign comparison, Acchl ys 02 
Accumtl lo-order (rounding) 


Cassette buff len/Series polnter 

CMAGET subroutine; get Basic ch 

Basic pointer (within subrtn) 

AND seed value 

Status word ST 

Keyswitch PIA: STOP and KVS flags 

Timing constant for tape 

Load=0, Verify=1 

Serial output: deferred char 

Serial deferred character 

Tape EOT received 

Register save 

How many open files 

Input device, normally 0 

Output CMD device, normally 3 

Tape character parity 

Byte-received flag 

Direct=S80/RUN=0 output control 

Tp Pass 1 error log/char butter 

Tp Pass 2 err log corrected 

JitLy Clock MAL 

Serial bit count/EOL flag 

Cycle count 

Countdown, tape write/bit count 

Tape buffer polnter 

Tp Met ldr count/Rd pass/Inbit 

TP Wrt new byte/Rd error/inbit ent 

Met start bit/Rd bit err/stbit 

TP Scan;Cnt;Ld;End/byte assy 

Mr lead length/Rd checksum/parity 
Jointer: tape butr, scrollíng 

Tape end adds/End of program 

Tape tíming constante 

Pntr: start of tape buffer 

1=Tp timer enabled; bÍt count 

Tp EOT/AS232 next bit to send 

Read character error/outbyte buf 

4 characters in file name 

Current logical file 

Current secndy address 

Current device 

Polnter to file name 

lr shift word/Rd input ch 

Y blocks remaining to Mr/Rd 
rial word buffer 

Tape motor interlock 

1/0 start address 


Mag 


00c3-00c4 
005 
006 
00c7 
Doce 
DOC9-00CA 
oca 
Doce 
d0cD 
00cE 
Docr 
0000 
001-0002 
0003 
00D4 
0005 
0006 
0007 
0008 
00D9-00F2 
DOP3-00F4 
DOFS-00F6 
DOF7-00F8 
DOF9-DOFA 
DOFP=010A 
0100-103E 
0100-01FF 
0200-0258 
0259-0262 
0263-0260 
0260-0276 
0277-0280 
0281-0282 
0283-0284 


028 
028P-0290 
0291 
0292 
029) 
0294 
0295-0296 


02C0-02PE 
0300-0301 
0302-0303 
0304-0305 
0306-0307 
0308-0309 
0304-0308 


0316-0317 
0318-0319 
O31A-0318 
O31C-031D 
O31E-031P 
0320-0321 
0322-0323 
0324-0325 
0326-0327 
0328-0329 
0324-0328 
0320-0320 
0325-032F 
0330-0331 
0332-0333 
033C-03F8 
0340-037€ 
0380-038 
03CO-03FE 


COD0-CEFF 
DO00-D02E 
DADO-D41C 
DB00-DBFF 
pCO0-DCOF 
DOO0-DDOF 
DODO-DF! 


Decimal — Description 


195-196 
197 
198 
199 
200 
201-202 
203 
204 
205 
206 
207 
208 
209-210 
21 
212 
23 
214 
215 
216 
217-242 
243-244 
245-246 
247-248 
249-250 
256-266 
256-318 
256-511 
512-600 
601-610 
611-620 
621-630 


654 
655-656 
657 
658 
659 

0 
661-662 
663 


110-771 
112-173 


176-177 
118-779 
780 
781 


9 
1 


80-80 
802-803 
BO4-805 


19060-59151 
49152-53247 


54272-54300 
55296-56319 
56320-56335 
56576-56591 
53248-53294 


Kernel setup poínter 

Last key pressed 

$ chars in keybd butter 

n reverse flag 

Ane for Ínput polnter 

Input cursor log (row, col 

Mhich key: 64 1 no key 
h cursor 

timing countdown 

Character under cursor 

Cursor in blink pha: 

Input from screen/from keyboard 

Pointer to screen líne 

Position of cursor on above 1ín 

Ordirect cut else programme: 

Current screen Sine length 

Row where curosr lives 

Last inkey/checksum/butfer 

£ INSERTS outstanding 

Screen line link table 

Screen color polnter 

Keyboard pointer 

RS-232 Rev pntr 

RS-232 Tx pnte 

Flosting to ASCII vo, 

Tape error log 

Ocessor stack area 

Basic input buffer 

Logical file table 


Top of Basic Memory 
Serial bus timeout flag 
Current color code 
Color under cursor 
Screen memory page 
max size of keybd butter 


Repeat delay counter 
Keyboard Shift/Control flag 
Last shift pat 

Keyboard table setup polnter 
Keyboard shift mode 

croll enable 


AS232 receive polnter 
AS232 Ímput poínter 
AS232 transmit polnt 
AS232 output polnter 
IRQ save during tape 1/0 
CIA 2 (NMI) Interrupt Control 
1 Timer A 


Start new Bi 
Get arithmetic element link 
SYS A-reg save 
SYS X-1eg nave 
SYS Y-reg nave 


SYS status reg save 
USA function Jump 152480) 
Hardware intercupt vector (EAJI) 


Jak Interrupt vector (FE66) 


(Ear) 
(F34A) 
CLOSE vector (4291) 
Set-Imput vector (F20E) 
Set-output vector (4250) 
Restore 1/0 vector (4333) 
INPUT vector (F157) 
Output vector (FICA) 
Test-STOP vector (F6ED) 
(E13E) 
(32) 
(FE66) 
LEAAS) 
SAVE link (FSED) 


Cassette buffer 
(Sprite 13) 
(sprite 14) 
(sprite 15) 
Ser 


Alternate: RAM 
RAM memory, including alternate 
Video Chip (6566) 


Sound Chip (6581 51D) 
Color nybble memory 

Interface chip 1, IRO (6526 CIA) 
Interface chip 2, NMI (6526 CIA) 
Alternate: Character set 


Mex Decimal Descript 


EOO0-FFFF 57344-65535 ROM: Operating System 
F 57344-65535 Alternate: RAM 

FS 65409-65525 Jump Table, including: 
- Set Input channel 

- Set Output channel 

- Restore default 1/0 channels 

- INPUT 

FFOZ - PRINT 

FFEL - Test Stop key 

YFEA - GET 


ROM control vectora 
keyword action vectora 
Function vectora 
Operator vectors 
Keywords 

Error a 

Error message vectora 
Misc messages 

Scan stack for FOR/GOSUB 
Move memory 

Check stack depth 

Cneck memory space 

*out ol menory 
Error routi 
BREAK entry 
*ready.* 
Ready lor Basic 

Handle new line 
Re-cnain lines 

Receive input line 
Crunch tokens 

Find Basic line 

Perform [NEW] 

Pertorm [CLA] 

back up text pointer 
Períora [LIST] 

Perform [FOR] 

Execute statezent 
Pertorm [RESTORE] 
Break 

Perform [STOP] 

Perfora [END] 

Perform [CONT] 

Perform [RUN] 

bPerfora [GOSUB] 
Perfora [GOTO] 

Perform [RETURN] 

Pertora [DATA] 

scan for next statement 
Pertorm [1F] 

Pertorm [REM] 

perform [0N] 

Get fixed point nuaber 
Pertora [LET] 


Perform [PRINTO] 
Perfora [CmD) 
Perform [PRINT| 


Print string frod (y.a) 
Print foraat character 
Bad input routine 
Perform [GET] 

perfora [INPUTO] 
Perfora [INPUT] 
Prompt 6 input 
Perform [READ] 
Input error mes 


(continuará) 
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COMPARTIENDO 


PERIENCIA ENTRE AMIGOS 


INICIACION AL TELEPROCESO 


Dada la gran cantidad de usuarios de los Microordenadores aplica 
dos a la radio RTTY/CW, os envío un corto pero eficaz programa para 
iniciaros en la Modalidad ASCIH, con el cual podréis transmitir y recibir 
todos los caracteres Ascii de vuestro Ordenador, o sea que todo lo que 
hagáis vosotros en vuestra pantalla le saldrá al correspondal, a 
diferencia del código BAUDOT que queda limitado a emitir letras núme: 
ros y poco más. 

Con este programa que es el primero de una serie que posteriormente 
publicaré queda la puerta abierta para el teleproceso 

Envio y recepción de listados. 

Acceso a programas de otros ordenadores. 

En fin todo cuanto os quiera dar la fantasia de los ordenadores 
aplicados a la radio. 

Como es lógico para que el programa funcione al 100X100 el corres- 
ponsal tiene que tener otro ordenador igual sobre todo en lo que res 
pecta a color etc., no sé cómo funcionaría teniendo el corresponsal otro 
ordenador distinto, yo las prucbas las he realizado con ordenadores 
iguales. 
La eficacia en la transmisión también depende mucho del Modem a 
utilizar, yo las pruebas las he realizado con un Modem autoconstruido 
por mí y el resultado ha sido bastante satisfactorio incluso a 110 Bau- 
dios con señales en FM menores de UN Santiago de Smiter 

¡Animo y a darle a las teclas! ir Siachés Galán 


Solosancho (Avila) 
EA 1 BDD 
PROGRAMA EMISION RECEPCION “ASCII” 
10 OPEN 2,2,3, CHRS (129)+CHR$(192) 
20 PRINT*(clr) EMISIO! 
25 GET AS: IF AS=" 1" 
30 PRINT AS. 
40 PRINT 42,A5; 
50 GOTO 25 
100 PRINT *(clr) RECEPCION” 
110 GET AS: IF AS ="T" THEN 20 
120 GET42,AS: PRINT AS; 
130 GOTO 110 
La velocidad en baudios puede aumentarse sumando uno al primer 
CHR$ 
50 Baudios 


HEN 100 


CHRS (129) 
75 Baudios = CHR$ (130) 
110 Baudios = CHRS (131) 
No es recomendable pasar de una velocidad de 110 baudios a no ser que 
las señales de la otra estación sean muy limpias 


Magia 


La MAGIA son trucos, la MAGIA es 
divertida. 

La MAGIA es hacer lo que nadie se ha 
atrevido y resulta ser la fuente más com- 
pleta de información para la informática 
práctica. 


La MAGIA es una sección mensual llena 
de consejos, trucos, de esto y aquello del 
mundo del software, hardware y aplicacio- 
nes, trucos descubiertos por los demás que 
hacen que la informática sea más fácil, más 
divertida o más animada. 


MAGIA habla de ideas sencillas, pro- 
gramas de una sola línea, subrutinas útiles, 
hechos de informática poco conocidos y 
otras cosas de interés. 


Los trucos de magia enviárnoslos compro- 
bados, pues hay varios incorrectos. ¡Ah! y 
no nos mandéis trucos repetidos... ¡Listos!. 
Premios: Ver pág. 5. 


Cuando en el C-64 se efectúa un LOAD automáticamente se borra el 
programa que hasta ese momento estuviese en la memoria RAM. Esto 
impide enlazar dos o más programas previamente almacenados en 
cinta. En otros ordenadores se dispone de la instrucción MERGE que 
permite realizarlo. Los usuarios del C-64 pueden simular esta instruc- 
ción de la siguiente forma 

—Hacer un LOAD del primer programa 

—Mover el puntero de inicio del BASIC de forma que apunte al final 
del programa que acabamos de cargar, para ello teclear: 

POKE 43, PEEK(45) - 2: POKE 44, PEEK(46) 

—Hacer un LOAD del segundo programa 

—Volver a colocar el puntero de inicio del BASIC en la posición $ 
0801, para ello 

POKE 43, 1: POKE 44,8 

Si después de todo esto hacéis un LIST, veréis que los dos programas 
aparecen enlazados: el programa que se cargó en 2% lugar comienza al 
final del primero. 

Conviene que el programa que se vaya a cargar en 2 lugar tenga 
números de líneas superiores a los del programa que se encuentre en 
memoria ya que el orden de los números de línea no se restablece (ojo 
con los GOTO y GOSUB!)” 


Rafael A. García Segura 
Montes de Oca, 9 - 2 D 
29007 MALAGA 


MERGE VIC-20 


Os envio una subrutina que algunos ordenadores poseen pero no el 
VIC-20, se trata de la función “MERG 

La función “MERGE” sirve para unir dos programas en uno solo. El 
procedimiento es el siguiente: Se comprucba primero que entre los dos 
programas a unir no exista ningún número de línea idéntico, ya que en 
este caso la linea se perdería al ser el número igual. Luego se tecl 
modo directo POKE 43, PEEK (45)-2: POKE 44, PEEK (46), y s 
el segundo programa con LOAD. Cuando éste se haya cargado se teclea 
en modo directo POKE 43,1: POKE 44,16, y ya se pueden listar los dos 
programas unidos. - 


Andres Portas Afenjar 
C/Ríos Rosas, 5-4% D 
29007 MALAGA 
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Poseo un CBM 64 desde hace 4 meses, y desde entonces estoy suscrito 
a vuestra revista N% 3332, 

Hace muy pocos días adquirí la impresora MP8 80V, y os mando un 
pequeño programa para rellenar quinielas con esta impresora. 

Os mando el listado y un ejemplo práctico en papel, de la impresora. 
Por supuesto es totalmente aleatorio, pero podría ser la de la próxima 
semana (por si acaso copiarla). 


A FERNANDEZ VILLORIA. " 


PRINTO1,CHRSC14)CHR8(16)"25QUINIELA" 
'1 PRINTH1,CHRSC18)CHRSC16)"25 
25 PRINTH1,CHRSC15) 
30 FORH=1TO60'PRINTHL, *=") NEXTH 
35 PRINTO1,CHRSC10) 
40 FORIm1TO14 
42 IFICIOTHENPRINTOL 0 0; 
45 PRINTO1,1;" PARTIDO"; 
50 FORJ=1108 
50 MmINT(RNDCO)M1 1)! IFMCRSTHENSIm" 1 
78 IFWCIGANDI.OSTHENSE=" xr 


80 IFUIBTHENSE"" 2 
90 PRINTOL,CHRSC16)358; 
110 NEXTJ 

111 PRINTOL 

142 NEXTI 

113 PRINTW1,CHR$(16)"65 VILLORIA. " 
114 POR 1 TOS: PRINTOL,1=+5 NEXTH 


115 PRINT 
eL: 

READY. 

QUINIELA 

A 
1 PARTIDO 1 1 1 1 MY 1 
2 PARTIDO Xx 41 o 1 xXx 41 1 
3 PARTIDO 2 1 1 x Xx Eo Y 1 
4 PARTIDO X 2 EA 2 2 1 1 
5 IDO X Xx EN 1 E 2 
6 PARTIDO 2. Xx 41 Li Xx 2 2 
? PARTIDO 1 Moa 2 E AL 1 
8 PARTIDO Xx x E 2 2 $. ¿l 1 
9 PARTIDO X 1 1 1 x WC, SE 1 
18 PARTIDO 1 Xx e E 1 1 x 2 
11 PARTIDO 2  X 20 rt 1 1 1 1 
12 PARTIDO Xx 1 x EY 1 1 X 
19 PARTIDO 1 1 1 TAE 1 2 
14 PARTIDO 1 1 1 1 a a Ñ 2 


José Antonio Fernández Villoria 
C/ García n* 5, 29 lzda. 
Gijón (Asturias) 


SALVAGUARDA DE MEMORIA 


Queridos amigos de COMMODORE WORLD); es esta la primera vez 
que envío una colaboración a la revista, aunque soy suscriptor desde el 
1% 1, a ver si entro en el tinglado de los premios y regalos, ya que 
observo que para los sucriptores que se “quedan en casa” no hay nada 

Bien, paso a comentar mi “trabajillo" 

Me voy a referir a un artículo que con el título “SALVAGUARDA 
DE MEMORIA EN PERIFÉRICO”, apareció en la revista n* 6, fir- 
mado por Rafael Jiménez Jiménez, ya que es un programa interesante 
para todos aquellos que les guste programar en código máquina, toda 
vez que permite salvar las rutinas de una forma más rápida y ortodoxa 
que el encerrarlas en BASIC, amén de la facilidad de carga, ya que 
aunque tengamos otro programa en memoria, podemos cargar la 
rutina, sin afectar al programa existente, lo que no sería posible si la 
rutina estuviera en BASIC. 

Pues bien, mis comentarios son los siguientes: 

19,—El programa que nos presenta nuestro amigo Rafael no fun- 
ciona correctamente, ya que no salva el contenido de la dirección dada 
como dirección final a la pregunta que hace el programa. Se puede 
comprobar salvando una zona de memoria, se borra posteriormente, y 
se carga lo salvado, se observa que falta el contenido de la última 
dirección. La causa está en que la rutina SAVE del Kernal, no salva el 
contenido de la dirección especificada como final. El defecto del pro- 
grama es importante, toda vez que las rutinas en código máquina, 
suelen terminar con la instrucción RETURN, y si esta falta, la rutina no 
va a funcionar, corriendo el peligro de causar un “atasco” al ordenador 
al lanzar la rutina. El problema se soluciona sustituyendo la línea 70 
por la siguiente: 

70 PRINT: INPUT"DIR. FINAL DE MEMORIA”; DY: DY=DY+1: 
GOSUB3000: LF=BB: MF=BA. 

Con esto el problema queda solucionado, ya que el programa suma | 
a la dirección final. 

2%.—Cuando una rutina salvada con este programa, se carga en 


modo directo, dicha carga afecta a ciertos punteros de página cero, de 
tal manera que si en este momento tenemos un programa BASIC en 
memoria, existen pocas posibilidades de que después de la carga de la 
rutina funcione, a menos que tomemos algunas precauciones antes de 
cargar la rutina. La causa de esto, tenemos que buscarla de nuevo en las 
rutinas del Kernal, en este caso en la rutina LOAD, Esta rutina, 
devuelve la última dirección cargada, dirección que utiliza el INTER" 
PRETE BASIC para saber dónde termina el programa, y dónde por lo 
tanto puede almacenar las variables, para ello, almacena esta dirección 
devuelta por la rutina LOAD en los punteros de página cero $2D y $2E. 
Si la rutina cargada reside fuera de la zona de memoria BASIC, lo cual 
es bastante frecuente ya que la zona de memoria normalmente utilizada 
para las rutinas en código máquina esta entre 49152 y 53247, muy por 
encima de la zona BASIC, los punteros de la página cero se actualizan a 
un valor incorrecto, lo que ocasiona que cl INTERPRETE BASIC 
emita el mensaje “OUT OF MEMORY”, no permitiendo hacer nada a 
menos que se haga NEW, con lo que perdemos el programa. 

Existen dos soluciones para este problema, la primera consiste en 
salvar los punteros de página cero, a continuación cargar la rutina, y 
posteriormente restaurar los punteros de nuevo; la segunda consiste en 
cargar la rutina con un LOAD en modo programa, en cuyo caso el 
INTERPRETE BASIC, no actualiza los punteros. Á continuación se 
describen los dos métodos: 

PRIMERA SOLUCION.—Cómo salvar y restaurar los punteros. 

1%.—Hacer POK E1020,PEEK (45):POKE 1021, PEEK (46) (RETURN) 

2s.—Hacer LOAD“NOMBRE”, NUMERO DE PERIFÉRICO, | 
(RETURN) 
.—Esperar que se cargue la rutina. 

49.—Hacer POKE45,PEEK(1020): POKE46,PEEK(1021) (RETURN) 

La rutina se habrá cargado sin afectar al programa BASIC 

SEGUNDA SOLUCIÓN.—Carga de la rutina en modo programa. 

Es necesario para ello añadir un par de lineas al programa BASIC de 
la siguiente forma: 

LEND 

2 LOAD “NOMBRE”, NUMERO DE PERIFÉRICO, 1 

Hacer RUN 2 (RETURN), y esperar a que se cargue la rutina, enton- 
ces borrar las lineas 1 y 2, con lo que tendremos cargada la rutina, y el 
programa BASIC correcto. 

ara finalizar, ahí está mi propia versión del programa. No se 
vii Ls culiaos preparatorias SETNAM y SETLES, ya que lo único 
que estas rutinas hacen es colocar datos en la página cero para su 
posterior utilización por la rutina SAVE. En este programa, el trabajo 
de esas rutinas lo realiza el BASIC directamente, con lo que el pro- 
grama se hace mucho más corto, aunque es necesario entrar con un SYS 
en la dirección adecuada de la rutina SAVE; esto se hace al final de la 
línea 60. El programa comprueba también que la grabación ha sido 
correcta. 


S REMO Ak MEMORIA A PERIFERICO 44% 
6 REM 

10 PRINT"[CLRICZCRSRDI" 
[SPCI"5N3:N=LENCNS) + 1F 
FTS:N$,10):M=10 

20 INPUT"CCRSRDIDIR. CSPCIINICIALESPCI 
";D:POKE194, INT(D256) :POKE193, D-INT 

(D/236)4256 

30 INPUT"[CRSRDIDIR. [SPCIFINALESPCI" 

¿D:D=D+1:POKE175, INTCD/256) :POKE174, 

D-INT(D/256)4256 

40 INPUT" [CRSRID1-CHSS. [SFCIB-DISCO" 

¡Hi IFAC 1ANDACIBLOT04O 

54 POKE186,A:POKE183,N:POKE184, 1 :POK 

E185,1:POKE187,192:POKE188,2 

68 FORJ=1T0 N:POKE703+J,ASC(MIDICNS, 

J,1)) NEXT: 5362957 

70 PRINT"LZCRSRDIREBOBINACSPCILALSPCI 
CINTACSPCIYUSPCIFULSACSPCIUNHESPCITE 
CLA” :POKE198,0:WHIT195, 1 

88 PRINT"ICLRIVERIFY"CHR$(34)N$CHR$ 
343", "R",1" 

90 POKE198,2:POKES31,19:PUKES3Z, 13:E 
ND 


Por último, aunque la sintaxis correcta de carga es: 

LOAD “NOMBRE”, NUMERO DE PERIFÉRICO, 1 

Si se utiliza como periférico el cassette, es suficiente hacer LOAD, sin 
ningún otro dato para la carga de las rutinas. 


INPUT "HOMBRE 
10THEN N3S=LE 


Alfredo Pérez Pérez 
Bolarque - GUADALAJARA 


Commodore World Octubre 1984/49 


CARTA BLANCF 


Me gustaría que me contes- 
taran a un par de dudas que 
tengo sobre mi VIC-20. En 
primer lugar quisiera saber 
cuál es la función de tres 

teclas de la consola del ordenador, que son las 

siguientes: 

Ll LA 
EMILIO GRANES FERNANDE 
C/PLAZA DE LA CARRETERIA, N' 33 
CONSTANTINA (SEVILLA) 

Las teclas “<”, “E” y “0” no tienen otra 
función más que la de servir de símbolos gráfi- 
cos, aunque algunas de ellas, en determinados 
programas (ej. “WEDGE” con la unidad de dis- 
cos) tengan una función especial. 


Lo primero felicitaros por 
vuestra revista, especialmen- 
te por la sección de magia 
que tantos trucos útiles 
aporta. 

Mi consulta va sobre los caracteres progra- 
mables. 

Tras haber leído la sección del manual dedi- 
cada a esto, tantas veces como para gastar las 
letras, he conseguido enterarme de cómo fun- 


vIC-20 Ptas 
Tarjeta 64K RAM+2K EPROM — 18.900 
Tarjeta 2K+2K EPROM 3.695 
Tarjeta 40/80 columnas+ 

3,5K RAM 16.350 
Unidad de expansión de 2 slots 3.200 
Unidad de expansión de 5 slots 9.900 
Printer Buffer PAR/PAR 16K 24.790 
CBM64 
Tarjeta 80 columnas 17.900 
Tarjeta 4K+8K EPROM 4.750 
Unidad de expansión de 2 slots 3.200 
Unidad de expansión de 5 slots — 12.995 
Printer Buffer SER/PAR 32K 27.950 
PARA VIC-20 Y CBM64 
Tableta gráfica KOALA-PAD 23,500 


PARA TODO TIPO DE ORDENADORES 


PROGRAMADOR DE EPROMS — 16.995 
BORRADOR DE EPROMS 8.775 


Pedidos e información: 
DELTABIT, 
Colón, 20-42 
SILLA (Valencia) 
Teléf.: (96) 120 29 25 
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ciona el programa de ejemplo para copiar 
caracteres de la ROM a la RAM. 

Pero ahora que ya estaba contento me he 
encontrado con el problema (para mí hasta 
ahora insalvable) de que no sé (ni lo dice el 
manual) cómo copiar los caracteres del set 2es 
decir mayúsculas y minúsculas. 

Otra duda sobre la cual no he encontrado 
respuesta en ninguna revista o libro es de, qué 
hay que hacer para que un programa que se 
esté cargando desde el cassette o la unidad de 
discos se autoejecute. 

Me despido no sin antes fclicitaros nueva- 
mente por vuestra/nuestra revista. 

Un asiduo lector, 

MIGUEL F. BAEZ DE AGUILAR G. 
(MALAGA) 

Las minúsculas, inversas, etc., están situadas 

en las ROM después de los caracteres en mayús- 


culas: 
53248 — $D000 Mayúsculas 
53760  $D200 Gráficos. 
54272 $D400  Mayúsc. inverti 
54784 — SD600 Gráficos invertidos. 
55296  $D800  Minúsculas 
55808 — $DA00 Mayúsculas y gráfic. 
56320  $SDC00  Minúsculas inv. 
56832  SDE00  Minúsculas y gráf. im 


A lo del auto-run, lo publicaremos en próxi- 
mos números pues hemos recibido numerosas 
cartas al respecto. 


COMPATIBILIDAD DE CINTAS 


Hola, os escribo porque 
tengo un problema con mi 
VIC-20 y si podéis, quiero 
que me lo resolváis 
Tengo la posibilidad de 
intercambiar programas con VIC-iosos Ingl 
ses, pero he oído que sus sistemas de televisión 
son PAL (o NTSC), y el nuestro es el de 625 
líneas. Funciona una cinta con programas 
ingleses en un VIC español y viceversa. 
JAVIER RECIO MATA 
C/FERNAN CABALLERO, 20 
41001 SEVILLA 
En primer lugar la contestación rápida a tus 
dudas, las cintas utilizan el mismo sistema en 
todos los VIC-20 del mundo. En segundo lugar te 
indicaré que el sistema Inglés es el PAL, que es el 
mismo que el nuestro. La diferencia entre sus 
VIC-20' y los nuestros es que el canal de sonido 
del sistema PAL británico utiliza una subporta- 
dora de audio de frecuencia superior a la nuestra 
(6.0 MHZ en lugar de 5,5 MH:), esa es la causa 
de que los ordenadores traídos de Inglaterra no 
se oigan bien en nuestros televisores, y si ajustas 
la sintonía para oírlos bien entonces no lo ves. La 
solución es un ajuste que tiene el modulador (esa 
ta que se enchufa al televisor). El caso es el 
mismo con los C-64 de las Canarias y que son 
extranjeros (hay que retocar un tornillito). Algu- 
nas veces hemos oído que tenían que cambiarles 
un carísimo circuito integrado, pero esta es una 
idea incorrecta. 


Poseo un VIC-20 desde 
primeros de este año y con- 
sidero su labor muy intere- 
sante. Desde el punto de 
vista de un ViC-ioso su 

revista lleva corto el contenido para este orde- 

nador aunque comprendo que no se puede 

abandonar a los pobres propietarios de C-64, 

4000, 8000, etc. 

En el MANUAL DEL USUARIO se 
comenta que después de un GOSUB, la ins- 


trucción RETURN devuelve el programa a la 
instrucción siguiente al GOSUB, pero ¿qué 
ocurre cuando hay dos GOSUBs encadenados? 
es, lo mismo que con las instrucciones FOR 

Efectivamente, los GOSUBS pueden encade- 
narse como si fuesen FOR...NEXT, pueden lle- 
gar a encadenarse hasta 24 subrutinas unas den- 
tro de otras; si se sobrepasa este número, el 
ordenador contesta con ?out of memory. Para 
comprobarlo basta con escribir... 1 GOSUB 1 y 
hacer RUN. 


SOBRE LA ROM 


Quisiera hacer unas cuantas 
preguntas, de las cuales no 
he encontrado respuesta en 
ningún sitio. 

a) Al copiar la ROM en la 
RAM ¿hay algún método para copiar el intér- 
prete del BASIC en cinta de cassette 

b) Este programa, por lo tanto, podría 
hacerse correr en otro microordenador con la 
misma CPU? 

e) Si así fuera ¿este otro ordenador se podria 
hacer funcionar con los mismos programas que 
el primero? 

d) Y por último, los cartuchos enchufables 
¿Sustituyen a la ROM? y si es así ¿ocupa las 
mismas posiciones de memoria?, ¿estos se pue- 
den copiar en la RAM? 

Os habré dejado aturdidos ¿no es así? Se 
despide de vosotros rápidamente: 

IVO PLANA VALLV 
C/CAPUTXINS, 30, 4, 1* 
TARRAGONA 

A.—Puedes salvarlo con un monitor de len- 
guaje máquina o con el programa aparecido en el 
número 6 (pág. 46) “Salvaguarda de memoria en 
periféricos 

Sí, pero el mapa de memoria de este otro 
microordenador tiene que ser igual que la del 
C-64, es decir, o es un C-64 o una copia idéntic 

“.—Claro, sería un C-64 o su “fotocopi 
D.— Algunos la sustituyen, otros se suman a 
ella sin sustituirla, etc. Todo depende de la com- 
binación de las señales EXRON, GAME, en 
el Port de expansión y el contenido de la direc» 
ción 1 (la tienes en los cuadros de “El Misterio 
de los Pokes” del número 4). 


COMPRA DE PROGRAMAS 


He comprado el número 5 
de vuestra revista para infor- 
marme mejor sobre las posi- 
bilidades de el ordenador 
personal Commodore-64 pues- 

to que pienso adquirir en breve uno. Al leer 

vuestra revista he visto con asombro la calidad 

y claridad de esta, que tratando temas con bas- 

tante profundidad se hace entender por perso- 

nas que, como yo, no tenemos un nivel de 
conocimientos de informática demasiado cle- 

vado. También he leído algo que me ha 1 

mado poderosamente la atención y es un bole- 

tín llamado “Servicio de Cintas”, en el que, 
según creo entender, ofrece un servicio de 
venta en cintas magnetofónicas de programas 

“publicados” al precio único de 850 pesetas 

más 75 por gastos de envio. Es este el punto 

que os pido me aclaréis, el de los programas 

“publicados”, o sea, si se puede comprar cual- 

quier programa, ya sea de juegos o de gestión, 

por muy poco nombrado que esté en la revista, 
al precio antes mencionado 

MIGUEL NUÑEZ PEREYRA 

LANZAROTE 

Se puede comprar cualquier programa de los 
que aparecen listados en la revista, no los pro- 
gramas a los que hace referencia la publicidad. 


SEAMOS 


FALLOS EN LOS PROGRAMAS 


En primer lugar, quería feli- 
citaros por vuestra revista 
quizás un poco técn 
pero muy completa. Tengo 
un C-64, y acabo de adqui- 
rir el cassette, me ha ocurrido, que al copiar 
algunos programas, he encontrado fallos, que 
no he podido resolver, ni aún mirando las 
metedura de pata de los siguientes números. 

Los fallos son los siguientes 

—En el n* 3, dando valor a las teclas de 
funciones, el ordenador me da un lllegal 
quantity en la línea 1030. 

—En el mismo n% 3, el programa “Mos- 
queando al mosquito”, me da un error tam- 
bién, debido a que algún POKE maldito me ha 
borrado todos los signos más, menos, comillas, 
comas, etc... y además no puedo volver a escri- 
birlos. 

—Por último, en el manual, el programa de 
“teclado de piano” que hay al final, me da 
Ilegal quantity en la línea 310, Tanto este 
error, como el de las teclas de funciones, son 
debidos a una secuencia ASC, la cual, aún no 
he podido descifrar. 

ENRIQUE LAHUERTA PEREZ 
C/HERMANOS IBARRA, 6-8 
HOTEL PATRIA, 

50001 ZARAGOZA 

1.—El error puede que no esté en esa línea, 
sino en alguna otra, en la que se definen (FS(I) o 
) con unos valores que hacen ilegal su utilización 
en la línea 1030. 

2.—Si haces RUN sin haber salvado el pro- 
grama antes, te arriesgas a que algún POKE 
rarillo te bloquee el ordenador o te haga cosas 
que no debiera; si esto sucede, desconectar el 
ordenador y vuelves a cargar el programa que 
habías salvado. 

3.—Pasa lo mismo 
gunta, en este caso veri 


se con la primera pre- 
ca la línea 300. 


Me gustaría saber si se pue- 
den leer los datos de las sen- 
tencias DATA de un pro- 
grama directamente en orden 
inverso al que tienen. 


Insisto en lo de “directamente”, ya que el 
problema en si tiene fácil solución metiendo 
previamente los datos en una matriz o 


haciendo un RESTORE y leyendo en cada 
vuelta un dato menos. 

FRANCISCO SAEZ SOTO 

C/VIRGEN DEL ROSARIO, 28 
ALCANTARILLA (MURCIA) 

En lugar de usar el típico lazo FOR Z=1 TO 
N: READ A: NEXT, sustitúyelo por el que lo 
hace en orden inverso. 
FOR Z=N TO 1 STEP -1: READ A: NE 

Es una solución sencilla a tu gran problema 
no? 


¿A qué dirección del COM- 
MODORE-64 equivalen las 
siguientes, que pertenecen 
al VIC-20 y se entran por 
POKE 

POKE 30208... y POKE 30720... (esta última 
la podéis ver en el número 6 de la revista, en la 
pág. 39 y dentro del prg. “UFO" en la línea 
40) 

Jna idea: podríais explicar a qué direcciones 
del C-64 equivalen las direcciones del VIC-20 
ampliado (aparte de lo que apareció en la 


revista número 2), en este caso, por ejemplo, 
POKE 30000... y pico. 

—Cuando comienzo a hacer un programa y 
pongo la instrucción: 

10 PRINT” [SHIFT] (CLR]” y después listo 
el prg. algunas veces (últimamente bastantes) 
esa línea no aparece impresa. 

¿A qué se puede deber esto? 

Fallos frustrados del manual del usuario del C-64. 

El programa “teclado de piano” de la pág. 
147 del manual de usuario del C-64 no hace 
nada. 

1. La 30720 no es propiamente la dirección 
sino la que se SUMA a 7680 (la memoria de 
pantalla) para que dé 38400 (la memoria de 
color). 

2. Que no aparezca una línea de programa, 
habiéndola introducido pulsando RETURN puede 
porque en de RETURN hayas pulsado 
SHIFT/RETURN, que produce el mismo efecto 
y no guarda la línea en la memoria, o que si estás 
utilizando cartuchos de ampliación (o el supe- 
rexpander), que este tenga algún fallo o 
recalentamiento. 


TECLAS DE FUNCION 


Quisiera me dijesen cómo se 
pueden programar las teclas 
de funciones especiales pues 
en el manual del VIC-20 se 
hace alusión a ellos pero no 
pone cómo programarlos 
Espero que mi carta no haya sido larga pero 
es la primera vez que escribo a la revista 


Me despido de ustedes contando con su 
colaboración. 
ERNESTO SARRALDE LOPEZ 
C/PINTOR VERA FAJARDO, N' 18- 300 
01008 VITORIA-GASTEIZ 
ALAVA 

Las teclas de funciones pueden ser programa- 
das, en el número 3 se explica cómo se hace. 


INSTRUCCION GOTO 


Como la mayoría de los lec- 
tores estoy metido en el 
mundo de la informátic 
quizás un poquito más pro- 
fundamente puesto que para 


mí es el sustento de mi familia. Hago referencia 
a la carta firmada por Guillermo Caamaño 
Olivares de Granada que aparece en el número 


5 en la que Guillermo dice no conocer el 
comando “GO” al igual que la re 
Bajo mi modesta experiencia quiero infor- 


ción 


mar de lo sigui *GO" dice una vez tradu- 
cido “IR” y *“ dice “A”, tanto “GO” 
| como “TO” son variables no utilizables puesto 


| que las dos palabras forman la sentencia de 
bifurcación incondicional de un programa 
escrito en “BASIC” cuando decimos “GOTO- 
100" el programa bifurca a la línca cien, tam- 
bién podríamos decir “GO TO 100", tradu- 
ciendo diríamos “IR A 100”, Pruebe a utiliz 
la variable GO” y “TO” y cómo le dará 
error, también la sentencia separada tal como 
está escrita arriba verá como sí le funciona 


PARA TUS HIJOS PARA TU COMERCIO 
1 VIC-20 1 COMMODORE-64 
| 1 LECTORA 1 UNIDAD DISCO 
1 MANUAL 1 IMPRESORA 
2 JUEGOS 1 TELEVISOR 
1 JUEGO AJEDREZ 1 PROG. CONTAB 
1 CARTUCHO JUEGOS GENERAL 
| 1 BASE DE DATOS 
TODO POR 61.890,- TODO POR 349.950,- 


6 5.900 PTS. MES 


0 18.500 PTS. MES 


CURSOS DE INICIACION, ASESORAMIENTO INFORMATICO 


COMPUTER 


RBLA CATALUNYA, 50, 1 
08007 BARCELONA TELF. (93) 215 60 70 


Y CUALQUIER OTRA SOLUCION PARA TI 
CON IDENTICAS FACILIDADES DE PAGO: 


ADEMAS: 


CLUB DEL ORDENADOR 


CENTER 


2* APART CORREOS 5455 
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... PREGUNTONE 


Actualmente trabajo con equipos IBM en la 
Empresa en la que presto mis servicios, tam- 
bién dispongo de un equipo CBM de propie- 
dad motivo por el que estoy suscrito a la 
revista (en el MANUAL DE REFERENCIA 
COMMODORE hacen alusión aunque muy 
simple de lo referido anteriormente). 
Próximamente me pondré en contacto nue- 
vamente para así ser un colaborador más de la 
revista, mientras, saludos cordiales. 
RICARDO ROCA 
C/EXCORXADOR, 6, S/A 2* 
VILAFRANCA DEL PENEDES 
(BARCELONA) 


JOYSTICK 


Me gustaría saber si exise 
alguna manera de utilizar el 
Joystick en un programa ya 
hecho (o sea un programa 
para utilizar el Joystick), 
También quisiera intercambiar juegos con 
otros lectores de esta magnífica revista. 
LUIS ALFONSO SANZ 
P? SAN ISIDRO, 5, 2% A 
VALLADOLID-12 
Se puede utilizar. El ordenador lee la posición 
del joystick en las direcciones: 37137 y 37152 
(VIC-20) 
56320 y 56321 (C-64): Una para cada Port. 


COMPATIBILIDAD DE CARTUCHOS 


Al cargar el VICPRINT y 
otros programas de cinta, sí 
además del cartucho de 16K 
RAM tengo puesto el super- 
expander, el ordenador se 

queda bloqueado. Si quito el super-expander 

todo va bien. 

¿Es ésto normal? 
NICOLAS DOMINGUEZ 

Normalmente los dos cartuchos son compati- 
bles, pero determinados programas que intercep- 


tam el sistema operativo KERNEL, son incompa- 
tibles con el Super-expander que también lo 
intercepta. Esa es la causa de tus problemas, y 
como ves es completamente normal en determi- 
nados programas. La solución suele ser, dejar el 
super-expander en el armario y sacarlo sólo 
cuando lo necesites de verdad. 


BASE DE DATOS 


Me llamo Jorge Llambi 
González, tengo 13 años y 
poseo un Commodore 64. 
Paso a exponeros el pro- 
blema que tenía 

En el programa base de datos de la revista n% 
3 página 60 al grabar algún dato no me funcio- 
naba, cambié la línea 400 tal como sugeríais en 
la revista n* 4 en meteduras de pata; pero me 
seguía dando error en la línea 910. 

'Cambié en dicha línea el primer prints) por 
printl y me dio error en la línea 920, en esta 
hice exactamente lo mismo: cambie el primer 
printéj por print! y funcionó. 

JORDI LLAMB 
APARTADO 102. 
BLANES (GERONA) 

Seguramente olvidaste poner el “J=1" que 
aparece en la línea 400 del programa. Si lo 
hubieses puesto habría funcionado a la perfec- 
ción. 


Amigos de Commodore 
World: 
¡Hola! Me llamo Ricardo. 
Poseo un COMMODORE 
64 desde hace unos meses, y 
desde entonces estoy suscrito a vuestra revista, 
la cual encuentro muy interesante. 

Os escribo, para subsanar un fallo del 
manual del Usuario del COMMODORE 64. 
En el apéndice F, en el que se relacionan los 
códigos CHRS, no aparecen los correspondien- 


ELECTROAFICIÓN 
COMPUTER 


C/ VILLARROEL, 104 - 08011 BARCELONA - TEL. 253 76 00 - 09 


Spectrum 48K 

Impresora Seikosha 
con interface 

Microdrive 

Teclado DK'TRONICS 

LAPIZ óptico 

Amplificador Sonido 


SOFTWARE 


Contabilidad 
“ontabilidad Doméstica 
Control de Stocks 
Mailing y Etiquetas 
Ficheros 

Base de Datos 

Gran variedad de Juegos 
Programas Educativos 


1 
PRODUCTOS COMMODORE IMPRESORAS 
Commodore-64 e 
Disk Drive 1541 rr 
Cassette CNZ pa 
Monitor Color 1701 NowPrint 
Impresora MPS-801 C Htoh 
Commodore 645X Portable Rhemas 
vi 
SINCLAIR GAMA COMPLETA DE ACCESORIOS 


Interfaces 
Joysticks 
Sintetizadores de voz 
Cassettes 

Cintas 

Discos 

Base de Datos 

Easy Script 
Monitore 
Interpod 
Cables 
Procesador de Textos 
Libros 


ORDENADORES DE GESTION 


Pal Computer 
Commodore 
Apple 
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1es a los colores accesibles a través de la tecla 
LOGO de COMMODORE. 

A continuación los relaciono: 

CHRS (129) Naranja. 

CHRS (149) Marrón. 

CHRS (150) Rojo claro. 

CHRS (151) Gris uno. 

CHRS (152) Gris dos 

CHRS (153) Verde claro. 

CHRS (154) Azul claro. 

CHRS (155) Gris tres 

Y nada más por ahora. Hasta mi próxima 
colaboración, ¡ADIOS COMMODORIANOS! 


SUGERENCIAS 
Hemos recibido cartas sugi- 
riéndonos que adaptemos 
todos los programas publi- 
cados al otro ordenador, los 


del VIC-20 al C-64 y vic 
versa, e incluso que saquemos un par de núm 
ros extra con todo lo publicado adaptado, 
puesta en general, los que scan 
'aciones podéis poneros en contacto con 
los autores, o con los clubs de ordenadores de 
vuestra localidad, seguramente a otro también 
le interese la idea y podáis compartir el trabajo 
entre varios, ya que nosotros no podemos 
emplear todo ese tiempo en adaptar programas 
que no son nuestros para los otros modelos de 
ordenadores. 

En los programas que sean nuestros, casi 
siempre apareceran dos listados uno para el 
VIC-20 y otro para el C-64, Cuando no apar 
cen es porque el programa utiliza particulari- 
¡des del sonido o gráficos del ordenador, y 
adaptación sería muy difícil. También nos han 
sugerido que publiquemos programas para el 

imons Basic en una sección exclusiva para él 
Creo que esto sería injusto, pues deberíamos 
tener una sección FORTH, otro PASCAL, 
otra para el VICTREE, otra para el Berdens 
Basic, etc. Como no caben todas en la reista 
sacaremos programas para lenguajes respecti- 
vos, pero no en todos los números. 

También piden articulos sobre periféricos, 
hard, etc. Todo lo que nos mandan las casas 
distribuidoras lo sacamos en la sección 
Comentarios Commodore, ya iremos publi- 
cando lo que nos envien 

Algunos piden que les enviemos listas de 
todo lo que hay en el mercado, como no tene- 
mos estas listas (sólo las que vamos publi- 
cando), a continuación van las señas completas 
de los que desean recibir listas de productos 
para que las casas se las envien: Miguel Bahi 
Cruz, C/Matola, Km. 2, Villacruz, n* 2, Elche 
(Alicante); José Luis Ranz Yubero, C/Doctor 
Fleming, 13, 3% izda. Guadalajara. 

Además de la sugerencia del cambio entre 
VIC y C-64. José Luis Ranz nos pedía progra- 
mas de gráficos en tres dimensiones, y quería 
saber cómo adaptar “evaluación de colegios”. 
al datassette 

Los programas de gráficos están y seguirán 
saliendo, ya que hemos recibido una lluvia de 
colaboraciones sobre este tema. 

El programa evaluación de colegios, no se 
puede adaptar para funcionar con cassette, ya 
que utiliza ficheros de tipo de acceso directo, y 
el datasscte sólo puede manejar ficheros 
secuenciales. 


(Viene de pág. 27) 


continuación del 
listado del volcado hexadecimal 


PROGRAMADORES 


Editamos y comercializamos 
programas para ordenadores personales 
(CBM64, SPECTRUM, etc.) 


USUARIOS 


Necesitamos colaboradores para 
traducción de programas y manuales. 
Imprescindible disponer de equipo. 


CASA DE SOFTWARE, S. A. Aragón, 272, 8% 6% 
08007 BARCELONA 
Teléfono: (93) 215 69 52 
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Las 


Aventuras 


Kbit > Kbila 


LE ME PE0IDO Al 
DIBUJANTE RUE ME 


DEJE EN ESTA HISTORIA 
CONTAROS 4LGUMAS COSAS 
SOBRE AQUELLOS 548/05, 


MHÁN_ CONTRIBUIPO 
A QUE Hoy MA 
Pobamos ConTa 


con os 
ORDEWADORES 


EL HOMBRE SIEMPRE TIVOLA, 
NECES/040 DE CONTAR... Y 
EMPEZO Com ¿o MáS SEN 
CHO Y PROXIMO RVE 
TEWIA... ¿Los DEDOS / 


EN LA ANTIGUA MESOPOTAMIA SE 
URLIZABAN ABACOS ... ERA UN 

SISTEMA DE CáteviO POR BOLAS 
RUE INDICABÁN LAS DECENAS Erc 


LETRAS PARA CONTAR .... 


L0S GRIEGOS Y /0S ROMAWOS MO 
TENIAN MUMEROS PERO USABAN 


EMPLEADO EN LA ANTIGUA 
CHIVA ... ¿CURIOSO MOP 


PARECIDO SISTEMA 4L METODO 


1D 205 F0EB10S ANTÍGUOS , dos 
DE MAYOR DESARROLLO EN El 
PLAMO MATEMÁJCO FUERON 


L0S EGIPCIOS Y 05 MAYAS 
A A 


LOS MUMEROS ACTUÁLES SOW 
INVENTO ARABE 


——__——— 

OS HEMOS GAMADO 
403 BATALLAS, aonTab 
A 


[[Gracias AZ 35/STEMA VORERICO] 
ARABE “A CULTURA MEDIEVAL, 
MHÁCE LVE ¿A MATEMATICA, 14 
E/SICÁ , 1M ASTRONOMIA Y 14 


QUIMICA SE LESARROLLEN., 


MÁBRA QUE ESPERAR ÁL AÑO 1642 


YA UNA MARQUINA DE CALCULAR 
CON RUEDEC/LLAS DENTADAS 


PARA QUE BLAI/SE PASOÁL COMSTRU 


GOTIERIED LE/BWIZ En 1673 


DESDE UN MANO FILOSOFICO 


PERFECCIONA LA MALVINA DE Pascal 
Y ESTUDIA LA MATEMATICA B/MAR!A 


AH 


ES UN uno, 


EN BASE A CEROS y 
UNOS . ALGO EX/STE.: 
NO EX!. 


ESSE 
Oz NO EXISTENCIA, 


[Acavaxd En T807 comsTauyz| 
Om TELAR Love EFÉCIUA O/BULOS| 
EN LAS TELAS GRACIAS A NA 
TARJETA QUE LLEVABA UNOS 
AGUJEROS En SITOS ESPECIALES] 


< AID 
vO/cA CET | 
LMAGNFIQUE 7 ZA 
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CHARLES BaBBAGE (1791) 354Y MAQUINA ERA MAYOR RUE UN PERO NUNCA PIDO TERMINARIA , El /N 
DISEÑA UNA MARUNA MECANICA.| camPo DE FUTBOL, Y +P mg VENTO NO FUNCIONO NO SE HAB/4 
[ES PRESENTADA EN INGLATERRA Mi ToR DE VAPOR HUBIERE HECHO INVENTADO LUN ¿A ELECTRICIDAD 

CON LA AYUDA DE Loeb QUE LA SUPERCALOULADORA REA ||/PERO SUS IDEAS S/ LUE FUERON UT 


WELLINGTON / LIZARA TODO TiPo DE CláLcuros LIZabeS Más ADELANTE o 
| 7 ESTUVISTE MUY 


Y WO OIVIDEMOS A ¿ADY ADA LOVELACE | [WILLIAM BURAOUGHS (1857 - TEFE) 
HUA DEL POETÁ LORD BykoW... FUE ABURRIDO Pok sy TRABAJO LE Cor 
MaDa MáS Y NáDá MENOS AVE ¿8 TABLE CONSTRUYE UNA MÁRUIWA 
PRIMERAS PROGRAMALORA , APOYANDO EL|| dE Caevio com 2157400 "NCOL 


besarapio DE PORADO... (LA PRIMERA Cótcuiá- 
¿A INFORMATICA 


GEORGE BO0LE (1315 - 1864) S 
DESARROLLA LA 106/04 BINAR/4 


BASE DE LOS ORDENADORES Y 
DE LA PRoceamácion ACTUAL 


DORA JE MESA! 


FUNCIONER 
MAQU MÁS 


Y BASA 


[205 ESTADOS vNI005S En 18360 TENIAN com 63.000.000 DE PERSOWÁS y 24 


DICEN 
Las me 


ZAS TARJETAS SE RELLEWA 


UN GRAVE PROBLEMA ; El GENSO..... CONTA INMIGRACIÓN ERA IMPOSIBLE BAN com FáC/tibdb y e4 
(404 CONTEO TARLABA 2 AÑOS Y Como0Etio Com PRECISION, PERO PIDEZ , SE MARCABA ÉL 
mE0IO.. y CLARO, mo Ela FIABLE APARECIO EN ESCENÁ HOLLERITE | SITIO DE Coba RESPUESTA 
== Eve HE DIDO CUENTA 
| 


WE ¿ds PeEcumras 0tL 
CENSO JON DE RESPUESTA 
CORTA ... ¿Casado? Cro mo? 


ÁNVMERO DE MIJOS”...é TROBAMAS? 


, er. ETc e 
Eaina EN LUGAR DE ESCRIBIR 


MALA, HACEMOS UN AGUIERO 
EN LA CONFESTÁCION coReec7A| 


ELAUDE E. SHÁNNON | LOGRA UN POCO ENTES ... UN TAL Tv. 
APLICAR LAS TEORIAS LME BOOLE WwaTsOM FUNDABA UNA PEQUEÑA 

4 ¿05 CcIecUITOS ELECTRICOS COYPA TA DE MAQUINAS ... La PY 
a "78 | so por momBere 7.8B.M. 


PVES CON ESTÁ MAmuUIMá LECTORA 
QUE DETECTA LOs AGUIEROS Y 
es INTERPRETA  4uToMáTica MENTE 


S1 PASA 

ELECTRIDAD ES UN| 
EsTábO 1 

y 51M un Y 

114 MATEMATICA 
BINARIA ES 

APLICABLE 


CASA 
(A 
A. 


LAS TARJETAS PERFORADAS TODAVIA SE 


UTUIZAH HOY Did EN ALGUNOS 
ORDENADORES 


K 


AN 


Commodore World Octubre 1984/55 


105 ORDEMÁDORES ESTABAN 4 
Punlo DE SER CONSTRUIDOS .. 
PERO UN ACONTECIMIENTO HISTORICO 
HiZo QUE SU ENTRADA FUESE 
Low más RAPIDA 


Y 04DA PAM /NTENTO. 
DESARROLLIR UN OLDEMADOR 


QUE ÁYUDASE 4 GANARLA 


ALAN M. TORING 


L.. Y EN ESTADOS UNIDOS, 
El EQUIPO 18M, EL 

DOCTOR 4IKEN y ¿m CU] 
UNIVERSIDAD E PENN.) 
sivamd 


(AS MÁRUINAS Tb 
NZ DeL DOCIR 


PARA ¿A 


MENSAJES 
CIERADOS 


EL PQIMER ORDEMADOR SE LLAMO 
ASCO o MARK-T ,CovsTR0 DO 
POR AIKEN, MEDIA 59 PIES DE 
1460 PoR Y DE Aito. SE 
compowia be más DE 00.000) 
PIEZAS 


MáS WÁTSON Y A UNIVERSIDAD 
DE PENWSILUAN/A COMSTRUIAN POCO 


JE COMPONIA DE VALVVLAS 
DE VACIO INMCOAMDESCENTES 
A 145 RUE HABIA 06 cat 
BIdQ MUY FRECUENTEMENTE 


besmes El EN/IAC (1946) 
QUE ERA TAMBIEN DE GRANDES 
DIMENSIONES y DE UM4S Caróciee!s 


TIAS  SIMLARES mi 


Pero El 
PASO ESTABA 


AF bado Los 
ESTO MARCA > [$ ORDENADORES 
El COMIENZO TUNO/OMABAN 
DE ud reos a 
TIFERÁ UMOw. Se » 
d a Ol 1 AH L.. POR 


CIERTO... Yo SOY 
uNa vaLvutd 
DE vacro,.. 
AAA 


U.- 701441) 
TUNES 


TRAS LA F/MALIZA0!ON DE 14 GUELed 


OS ORDEMBDORES DEJARON DE SER 
UN ARMA Y SE COMIRTERON 


HE GUSTARIA RUE 
RECORDARA/IS 4 ESTOS 
sáñ/0s Y 4 OTROS TANTOS 
RUE No HÁN Pásábo 4 ¿4 
HISTORIA ... SIM ELLOS NO 
TENDRIAMOS HOY 
DIA (NFORMATICA... 
MI OTRAS MUCHAS 
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VipEO 
Casino 


Carrera 
de 
caballos 


Gabe GARGIULO (RUN EEUU) 


Traducido por Valerie SHANKS y adaptado por Ah 


Guarda tus prismáticos y vente al hipódromo 
(con este programa y tu VIC-20 lo podrás hacer 
sin perder dinero). 


PARA TU VIC-20 - NO AMPLIADO 


Este programa de carreras para el VIC-20 no ampliado utiliza el simbolo 
que se parece un poco a un caballo, o un perro o un pollo, con un poco (a 
decir verdad, con cantidades industriales) de imaginación. Mi versión sólo 
funciona en el VIC, ya que utiliza pokes. 

Tú empiezas a jugar con $500, y puedes apostar hasta esa cantidad. Tú 
escoges un caballo, de 1 a 5, para ganar. El programa elige el ganador al 
azar. Si tú has apostado por el ganador, ganas cuatro veces la cantidad 
apostada, que se añade a la cantidad que tienes. Si pierde tu caballo, tú 
pierdes la cantidad apostada. Puedes jugar hasta que pierdas todo el 
dinero que tenías. (Esto es inevitable.) 

Es fácil teclear este listado, el juego resulta divertido, y sobre todo, no te 
cuesta nada, El listado demuestra un buen estilo de programación, que si 
lo sigues, da buenos resultados que son fáciles de comprender y modificar 
Empieza con un REM (comentario) que demuestra el nombre y finalidad 
del programa. Ahora lista las variables y su explicación. A continuación, 
presenta la lógica principal del programa, que contiene sus decisiones más 
importantes. Coloca las subrutinas, que se utilizan con las sentencias 
GOSUB, después de la lógica principal del programa. 


Tabla 1. Descripción del programa principal 85 DESPUES DE UNA CORTA ESPERA, ARRANCA EL PRO: 
NY DE LINEA GRAMA. 
15 ELJA RI (CANTIDAD DE DINERO EN MANO) EN 500 86 FIJA LA POSICION INICIAL DE LOS CABALLOS. 
20 BORRA LA PANTALLA. LLAMA LA SUBRUTINA 1200 PARA 90 - 110 DA LAS INSTRUCCIONES, 
COLOCAR UNA FILA DE GUIONES ATRAVESANDO LA PAN: 140 LLAMA LA SUBRUTINA 1200 PARA QUE COLOQUE UNA FILA 
TALLA, DESCRIBE LAS VARIABLES ML, LA. DE GUIONES EN LA PANTALLA. 
2 FIJA ML (POSICION DE MEMORIA) EN 7680, LA DIRECCION 270 APUNTA EL NUMERO DEL CABALLO APOSTADO. 
INICIAL DE LA PARTE SUPERIOR IZQUIERDA DE LA PANTA- 300 LLAMA LA SUBRUTINA 1200 PARA QUE COLOQUE UNA FILA 
LLA. FIJA LA (líneas transversales) EN 22. POKE 36879: FIJA El DE GUIONES EN LA PANTALLA. 
COLOR Y EL FONDO. 310 SOLICITA LA APUESTA. 
40 LLAMA LA SUBRUTINA 1200 PARA QUE COLOQUE UNA 320 SILA APUESTA ES MENOR QUE O IGUAL A LA CANTIDAD EN 
LINEA DE GUIONES EN LA PANTALLA MANO, SE AVANZA A LA 400 
80 PONE EL TITULO Y LLAMA LA SUBRUTINA 1200 PARA QUE 330 (Y SENO LO ES). INDICA LA CANTIDAD QUE QUEDA PARA 
COLOQUE UNA FILA DE GUIONES EN LA PANTALLA. APOSTAR 
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350 SOLICITA UNA APUESTA DE NUEVO. (310.) 
400 BORRA LA PANTALLA Y LLAMA LA SUBRUTINA 2000 PARA 
QUE PONGA LOS CABALLOS. 
410 LLAMA LA SUBRUTINA 4000 PARA QUE PONGA LA PUERTA 
DE SALIDA. 
IGÉ UN NUMERO AL AZAR ENTRE 1 Y 5. 


620 LLAMA LA SUBRUTINA 1000 PARA QUE | SESUME A UN CON- 
'TADOR QUE CORRESPONDE AL CABALLO GANADOR 
LLAMA LA SUBRUTINA 2000 PARA QUE PONGA LOS CABA- 


ZA.) 
RRESPÓNDE AL CABALLO 


UMA | AL CONTADOR QUE 
ANADOR. > 
EL CABALLO QUE ACABA DE DESPLAZARSE NO SE 
ENCUENTRA CERCA DEL LADO DERECHO DE LA PANTA- 
LLA, EL PROGRAMA VA A LA 600 PARA QUE SE MUEVA OTRO 
CABALLO. 

650 SI HA HABIDO GANADOR, EL PROGRAMA ESPERA UN POCO 
AQUÍ. 

660 ANUNCIA AL GANADOR. 

665 COLOCA UNA FILA DE GUIONES POR LA PANTALLA. 

670 SI EL CABALLO ELEGIDO ES EL GANADOR, SE SUMAN LAS 
GANANCIAS A LA CANTIDAD EN MANO; EL PROGRAMA 
AVANZA A LA 750. 

680 SI EL CABALLO ELEGIDO NO ES EL GANADOR, EL PRO- 
GRAMA HACE UNA PAUSA AQUI. APARECE EN PANTALLA 
EL MENSAJE “TU PIERDES”. RESTA LA CANTIDAD DE LA 
APUESTA DE LA CANTIDAD DE DINERO EN MANO. 

685 INDICA LA CANTIDAD DE DINERO QUE QUEDA. 

NO, QUEDA DINERO, APARECE EL MENSAJE “ESTAS 
ME MIN, 


RA EMPEZAR DE NUEVO. 

710 SILA RESPUESTA NO ES 
COLOR DE PANTALLA Y 
GRAMA. 

750 PONE “TU GANAS” Y TE DICE LA CANTIDAD. 

760 PONE LA CANTIDAD DE DINERO EN MANO. 

770 EL PROGRAMA VUELVE A LA 690 PARA PREGUNTAR SI 
QUIERES JUGAR DE NUEVO. 

990 FINALIZA 


ACABA AQUI RESTAURA EL 
L FONDO, FINALIZA EL PRO- 


SUBRUTINAS. 

1000 SUMA LA XI, X2, X3, X40 X5, SEGUN EL NUMERO QUE HAYA. 
SALIDO AL AZAR. 

1200 COLOCA UNA FILA DE ASTERISCOS POR LA PANTALLA. 

2000 HACE AVANZAR LOS CABALLOS CUYO NUMERO HA 
SALIDO. DEJA LOS OTROS CABALLOS EN SU SITIO. 

3000 PRODUCE EL RUIDO DE LA PISTOLA DE SALIDA Y EL 
GALOPE DE LOS CABALLOS. 


Tabla 2. Descripciones de las subrutinas 


Tabla 3. Definiciones de las variables 


MI POSICION EN LA MEMORIA DE UN CABALLO, 

LA LINEAS HORIZONTALES EN PANTALLA, 22 EN EL VIC 

XI POSICIÓN DEL CABALLO 1 

X2 POSICION DEL CABALLO 2 

X3 — POSICION DEL CABALLO 3 

X4 POSICION DEL CABALLO 4 

X5 POSICION DEL CABALLO 5 

RI CANTIDAD DE DINERO EN MANO. 

1 VARIABLE DE INDICE. 

R NUMERO ELEGIDO AL AZAR. 

H. CABALLO POR EL QUE SE HA APOSTADO. 

B CANTIDAD APOSTADA. 

B() “ARRAY" EMPLEADO PARA PODER LOCALIZAR A CADA 
CABALLO. B(1) ES PARA EL CABALLO 4l, B(2) ES PARA EL 
CABALLO 42, ETC. 

Z5 RESPUESTA S/N 

J VARIABLE DE INDICE 

Y — COORDENADA *Y" EN PANTALLA. (EL NUMERO DE 
LINEAS A PARTIR DE LA PARTE SUPERIOR). 

33 VARIABLE DE INDICE. 

Y — VARIABLE DE INDICE. 

32 VARIABLE DE INDICE. 

L VARIABLE DE INDICE. 

M__ VARIABLE DE INDICE. 


vIC-20 
10 REM CHRKERHS 


15 Ri=5ub:REM RI=LINERU QUE LUELA 
20 PRINT"CCLRICUHTI"-REM ML=LOCAL IZA 
CION DE LA PANTALLA 


22 ML=76660-LH=22-PUKE3OS/s, 8 

30 E=0-Kk=0:FUKI=1 105: Mc 1=0 E: 1 =00N 
EXTI 

40 GUSUB1 200 

66 PRINT"BlENVENIDULSPCIMLSPCILAS LIS] 
CARRERHSL2S5PC]" > LUSUE1 Zum 

€5 FOKI=1T0500 NEXT: REM ALI COMIENZ 
A EL JUEGO 

86 Xl=1:X2=1:X3=1 .x9=1.X5=1:KEM CULU 
CH A LOS CHBALLOS 

90 PRINT"TIENESCSPCIS" RL) "EHH" FRI 
NT"APOSTHR, " 

108 PRINT"LASUSPCIMPUESTHSCSPL JE THN 
[SSFCI4 1" PRINT 

110 PRINT"EL IGELSPCIUNLSPCICABALLILSPCI 
as 

144 GOSUB1 ¿68 

270 INPUT"[SPCI",H 

280 IFHUMNLHCO THEN310 

290 PRINT"LUSLSPL ICABHLLUSLSPLJESTHN 
(4SPC INUMERHDOS | SPCIDELCSFCI1 SPECIAL 
LSPCI5. [SPCI INTRUDUCE [SPCIELESPC NUM 
ER" 

306 GUSUB1200:5UTUZ78 

310 PRINT"CUANTOCSPCIAPUESTHS"; 3 1NPU 
TB: B=Hb5(B> 

320 IFB<R1 UR B=k1THEN40 

338 PRINT"TIENESISPCIS",R1;".[SPCI" 


356 GUTu310 

400 PRINT"LCLKI";  DUSUBZVWE:KEM LULU 
CA LOs CABALLOS EN SU 51110 

419 GOSUB4uvw0:KEM LINEA DE SHLIDH 
600 R=INTOSARNDC1)+1) 

629 LOSUB1400- GUSUBLOWI 

634 B(R)=B(K)+1 

6498 IFB<R)<C(LH=2)THENOUO 

650 PRINT"LSPCI":FURI=1101000 NEXTI 
660 PRINT"[CLRIC2CRSRDJEL [SPC IGANADO 
RISPCIESCSPCIELLESPCINUMERO" ¿R 

665 FURI¿=21T10LH:PRINT"="):NEXTIZ 

670 1FHÑKTHENR1=K1+(4%B) 10710738 
680 PRINT"HHs[>9FCIFEKDIDO. ":ki=k1-B 
685 PRINT"[CRSRLITIENESISPCIS", RI 

687' IFK1<=8THENPRINT" [CRSRDIESTHSLSPCI 
ARRUINADO. VUELVEOTROLSPCIDIM" ¿END 

694 2Z5="":PRINT"LCRSKDIUTRHCSPCICARK 
ERACS/N) "5 

691 INPUTZS 

709 1F2$="5"1HENZG 

719 POKE36873,27:PRINT"[CLRILBLUI"; 


END 

758 PRINT"[CRSRDIMASUSPC IGHNHDOLSPCI 
$"¡44B 

768 PRINT"LCRSRKDIHHORHESPCITIENESCSPCI 


S$"¡R1 
770 els 


Todo. Ren SUMA HL CUNTADOK HPRUP1HDO 
1090 IFR=ITHENX1=X1+1 

1092 IFR=2THENX2=x2+1 

1093 IFR=3THEN<3=X3+1 

1694 1Fk=41HENX9=x4+1 

1695 OS 

11600 RETURI 

1200 PRINTA FORJ=1TOLA:PRINT"=";: NEXT 
J:PRINT:RETURN 

2000 REM COLOCA LOS CHBALLOS EN LA P 
ANTALLA 

2010 Y=1:PRINT"[CLRI" 

2020 POKEML+X1+228'Y,94 

2621 POKEML+X1-1+22kY,48+1 

2022 POKEML+X1-2+228Y,32 

2630 Y=5 

2048 POKEML+x2+22HY, 34 

2041 POKEML+X2-1+224'4, 40+2 

2042 POKEML+X2-2+22MY, 32 

2050 Y=9 
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2060 PUKEML+X3+228V,94 3000 REM SONIDO 


2061 POKEML+X3-1+22MY,48+3 3614 FOKE36878,15:POKE36874, 244 

2062 POKEML+X3-2+228Y,32 3028 FORJ3=1105: NEXTJ3:POKE36874,08 

2070 v=13 3030 POKE3£878,0:RETURN 

2050 POKEML+:4+228Y,94 4060 REM SONIDO PARH COMENZAR EL JUE 
2031 PUKEML+X9-1+224V,40+4 60 Y DISPARO 

2082 POKEML+X9-2+22HW, 32 4910 FORY=4T022:POKEML+3+224Y, 115: NE XTY 
2090 va17 4020 FORJ2=1T01011:NEXTIZ 


2100 POKEML+X5+22V, 94 4040 PUKE36877, 220: FURLe19TOUSTEP=1 
2161 POKEML+45-1+22 48 4950 PUKE36878,L : FORM=1T078:NEXTM:NE 
2102 PUKEML +25-2+22MY, 32 XTL : POKE36877,8: POKE36878,0 


2130 RETURN 4100 RETURN 


ESTE ES PARA TU C-64 


A prueba de reflejos 


Soltan SZEPESI (RUN EE! 


Traducido por Valer 


SHANKS y adaptado por Diego ROMERO _ | 


tu memoria y velocidad de reflejos en este 
divertido programa. 


Pd 
Unas secuencias de color y sonido ponen a prueba h 


El programa “Repetir la Secuencia” te permite jugar a tres 
cosas distintas que te hacen ejercer y te ayudan a mejorar tu 
memoria tanto visual como auditiva. Otro juego de este 
programa resulta útil para comprobar tus reflejos. El 
programa (Listado 1) está escrito en Basic para el C-64. pero 
puede ser modificado para ser usado en otros equipos. 


La idea detrás de estos juegos es la misma que la de 

món”. Sin embargo, al utilizar el ordenador y su pantalla, 
se logra una mayor comunicación entre la máquina y el 
jugador. 


Cuatro cuadrados de diferentes colores aparecen en cuatro 
sitios distintos en pantalla. Salen unos colores intermitentes 
alcatorios, casa uno acompañado por un sonido especial. Tú 
lo tienes que repetir pulsando la misma tecla de color (sin 
usar la tecla de control). Los colores utilizados son púrpura, 
verde, azul y amarillo: por lo tanto, las teclas 5, 6, 7 y 8 
tienen que ser pulsadas. Si repites los colores y los sonidos 
correctamente, el juego continúa, A continuación se presenta 
la descripción de los cuatro juegos. 


Juego 1. Crear la secuencia. 

Después de haber recibido la primera señal del C-64, tienes 
que añadir otra señal. A continuación, tienes que repetir la 
secuencia de las señales anteriores y añadir otra. Continúas 
de esta forma hasta completar un número determinado de 
pasos (ver la Tabla 1), y el C-64 te saludará con las primeras 
ocho notas de la Quinta Sinfonía de Beethoven. Si no lo has 
hecho con suficiente rapidez, o si te has equivocado al repetir 
la secuencia, el ordenador te toca una parte ruidosa de la 
Quinta Sinfonía y el juego termina. 


Antes de empezar cada juego, puedes elegir uno de los cuatro 
niveles de dificultad pulsando una de las teclas de funciones 
programables (Fl, F3, FS o F7). La Tabla 1 lista los distintos 
parámetros definidos por estas teclas. 


Cuando se pulsa la tecla de función F3 (después de que el C- 
64 lo solicite al iniciarse el juego), se tienen que repetir 
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)p correctamente ocho secuencias para poder terminar el juego. 
El tiempo transcurrido entre cada señal será muy corto; 
tienes que pulsar el color correcto a los tres segundos de 
haber pulsado el color anterior. 


Juego 2. Repetir la secuencia. 


El C-64 empieza por dar una señal. Al repetir tú la señal 
correctamente, el ordenador repite la señal anterior y añade 
una señal nueva. Tienes que volver a repetir esta secuencia de 
nuevo. En los pasos siguientes, el 64 repite la secuencia 
anterior y añade una señal nueva hasta que se complete la 
serie de acuerdo con el número de secuencias elegido. 


Juego 3. Cambiar la secuenca. 


Este juego se parece mucho al Juego 2. La única diferencia es 
que el ordenador no repite la secuencia dada anteriormente, 
sino que empieza una nueva secuencia con una señal 
adicional. 


Juego 4. Intermitencias Simples 


En este juego, el C-64 sólo da una señal a la vez y tú 
dispones de un segundo para repetirla. 

La Tabla 2 presenta los números de las secuencias y el 
contenido de cada sección del programa. La lista de las 
variables principales se presenta en la Tabla 3. 


Las variables N1, Tl y T2 son fijadas por las cuatro teclas 
programables en las sentencias 60 a 75. Pueden ser 
modificadas si se cambian los números en estas sentencias. El 
tiempo transcurrido entre cada señal (T1) es totalmente un 
valor relativo. Este se añade al tiempo que se tarda en 
representar el cuadrado de color. T2 está en segundos. En el 
Juego 4, T2 se vuelve a definir en la sentencia 355. 

Dado que el programa sale de la subrutina “REPITE LA 
SECUENCIA” (las secuencias 450 a 485) en unas 
circunstancias determinadas sin utilizar el comando 
“Return”, el “stack” puede llenarse (después de unas 13 
partidas en el mismo número de juego) y podría presentarse 
un mensaje de error “OUT OF DATA”. Para evitar este 
desastre, se introdujeron tres comandos adicionales “Return” 
con la bandera Q. La subrutina “FOR STACK 
CLEARING” (las sentencias 700 a 710) proporciona la 
sentencia correcta “GOTO” (de salto). 

Una operación semejante de llenar los “stacks” puede 
realizarse cuando queda un bucle For... Next antes de 
terminarlo. La primera parte de la sentencia 515 soluciona 
este problema. 

El programa requiere 3568 bytes de memoria; se necesitan 
400 bytes adicionales para ejecutar el programa. 


FUNCIONES. SECUENCIAS. _ SEÑALES AL JUGADOR 


Fl 4 100 5 SEGUNDOS 
F3 8 so 3 SEGUNDOS 
ES 16 10 2 SEGUNDOS 
F7 Ey) 1 1 SEGUNDO 


Tabla 2. Lista de secciones principales del programa 


SENTENCIA N% TEMA Y COMENTARIOS 
5-10 TITULO Y AUTOR 


DE DIFICULTAD. 


200-230 PROGRAMA PRINCIPAL DEL JUEGO 1 
250-275 PROGRAMA PRINCIPAL DEL JUEGO 2 
300-310 PROGRAMA PRINCIPAL DEL JUEGO 3 
350-360 PROGRAMA PRINCIPAL DEL JUEGO 4 
400-435 SUBRUTINA DE COLOR Y SONIDO 

450-485 SUBRUTINA PARA REPETIR LA SECUENCIA 
500-520 MENSAJES DE ERROR 

525-560 PROGRAMA DE MUSICA 


570-580 FINAL CORRECTO. QUINTA SINFONIA. (DATOS DE LAS 


LINEAS 555-560) 
600-640 REPETICION DE LA ULTIMA SECUENCIA CORRES 
650-680 QUIERES CONTINUAR? 
700-710 BORRADO DE LOS 


Tabla 3. Lista de las variables principales 


VARIABLE COMENTARIOS 


BS 11 CURSOR ABAJO + CODIGO PURPURA 
C$ MARCA LAS MANCHAS DE COLOR 
CO POSICION DE MEMORIA DE COLOR 


G_ NUMERO DE PARTIDAS DENTRO DEL MISMO TIPO DE 


JUEGO, 


K(N) POSICION DE LA MANCHA DE COLOR EN LA INTERMITEN- 


CIA N DE LA SECUENCIA. 


NI__ MAXIMO NUMERO DE INTERMITENCIAS EN UNA SECUEN- 


CIA. 


NM NUMERO DE NOTAS EN UNA SECUENCIA DETERMINADA 


P.__ NUMERO DE INTERMITENCIAS DEL JUEGO 4 
Q BANDERA AL SALIR DE UNA SUBRUTINA 

S POSICION DE MEMORIA DE PANTALLA 

SI” DURACION DE LA MUSICA 

T_ NUMERO DE DIRECCION DEL SONIDO 


TI TIEMPO TRANSCURRIDO ENTRE SEÑALES (VER EXPLICA- 


CION) 


T2 RETRASO DE TIEMPO PERMITIDO, EN SEGUNDOS, AL 


REPETIR LA SEÑAL 


T3 ESTADO DEL RELOJ, AL MEDIR RETRASO DE TIEMPO T2 


TN CODIGO DEL TONO DE LAS NOTAS MUSICALES 


TT NUMERO TOTAL DE PUNTOS DENTRO DEL MISMO TIPO DE 


JUEGO 
X NUMERO DE JUEGO 


Tabla 1. Los niveles de dificultad ] 
dentro de un juego determinado 
TIEMPO TIEMPO 
TECLA DE NUMERO DE ENTRE PERMITIDO 


pp INICIALIZACION. ELEGIR NUMERO DE JUEGO Y NIVEL 


C-64 


5 REM 

10 REM 

14 REM INICIAL 1 ZAC 1 ON RN 
. 

15 POKES3281,0:DIMK(32):0=0: T1=0:PRI 
NT*CHHTI" 

20 PRINT"[CLRIC2CRSRDIMMLSPCIMODAL 1D 
ADESCSPCIDELSPCIJUEGO : [15SPCILCRSRDI 
[5SPCJ1. SECUENCIACSPCIPROP IA" 

25 PRINT"LCRSRD][4SPCI2.REPETICIONESPCI 
DEL[SPCISECUENCIA" 

30 PRINT"[CRSRDIC4SPCI3. SECUENCIALSPCI 
CAMBIANTE[ 14SPCI[CRSRDILSSPCI4. DESTE 
LLOS[SPCISUELTOS" 

35 PRINT"[2CRSRDIMAESPCIPULSALSPCIEL 
CSPCINUMERO: "5 

40 GETAS: IFAS=""THEN4O 

45 X=VALCAS) :PRINTX: IFXC1ORX>4THENRU 
N 


56 PRINT" [ZCRSRD IMNLSPCINIVELESPCIDE 
[SPCIDIFICULTADESPCICCRECIENTE >L6SPCI 
[CRSRDI[2SPCIPULSALSPCIF1, [SPCIF3, FS 
[SPCIOLSPCIF?" 

55 GETAS: IFA$=""THENSS 

60 IFA$=CHR$(133)THENT1=100:N1=4:T2= 


E 
65 IFAS=CHR$(134)THENT1=50:N1=8:T2=3 
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70 IFAS=CHR$(135)THENT1=10:N1=16:T2= 


2 
75 IFAS=CHRSC(136)THENT1=1:N1=32:T12=1 


77 1FT2=0THENRUN 

3u Bsw"[10CRSRDILPURI":C$="[2SPCIPUR 
PURAL3SPC]CORNIVERDEL3SPCI[BLUJAZULLISPCI 
(VEL JAMARILLO" 

85 Va54296:WA=54276:H=54277:SReS4278 
:HF=54273:LF=54272 

94 PHe54275:PL=54274:5=1227:(0:55499 


95 Nii=1:0=6+1:0=9 

100 PRINT"[CLRI"BS$CS :M=RND(-TI) 

105 UNXGOTOZ00, 258, 308, 359 

199 REMMNSECUENCIAS PROPIAS IMAN 
id] 

208 PRINT"[CRSRDIELESPCIC-64[SPCIDALSPCI 
ELTSPCIPRIMERCSPCICOLOR" :N=1:K(1)e1 
NTC(RND< 1714) : GOSUB4LO 

205 'GOSUB450 : IFUCOTHEN760 

210 NM=NM+1 :N=NM:PRINT" [CRSRDIAGREGA 
[SPCIOTROLSPCICOLOR” : T3=T1 

215 GETAS: IFAS$=""ANDTI-T3ICT2ZHGBTHENZ 


15 

220 1FTI-T32T2450THENSOG 

225 KN VAL (H$)-5: GUSUB400 - GOSUB4SO 
+ IFUC)OTHEN700 

230 60TO210 

La REMMAREPETICION DE SECUENCIAS 
1 

250 PRINT"[CRSRDIEL [SPCIC-64[SPCIDACSPCI 
LACSPCISECUENCIA" : Nan: KN) =INTCRNDO 
174) : GOSUB488 

255 00SUB450: IFACUTHEN700 

260 FORI=1T0800:NEXT 

265 FORN=1TONM:PRINT"LCRSRDIELLSPCIC 
-64 (SPC IDAUSPC ILALSPCISECUENCIA" :G0S 
UB400 : NEXTN 

270 NiteNi+1:G0TOZ50 

275 FORI=1T0806' NEXT 

299 REMMMSECUENCIAS CAMBIANTESIARA AA 
nd 

300 FORN=1TONM:PRINT"[CRSRDIELESPCIC 
-64 [SPC IDALSPCILACSPCISECUENCIA” ¿KUN 
>= INTCRNDC1 M4) 

305 60SUB400: NEXTN: DUSUB458 : IFUCBTH 


EN700 
310 FORI=1T0880:NEXTI : NM=NM+1:G0TO38 


1] 

349 REMMNDESTELLOS SUELTOS 
e. 

350 Pel 

355 T2=1:N=1:K(N)=INTORNDO1 744) : GOSU 
3400: GOSUB4 50: IFUCOTHEN700 

360 FOR1=1T0400:NEXT1:Nilel:N=1:P=P+1 
¿GOTO3SS 

399 REMMIDESTELLOS COLOR AND SOUNDAA 
mo. 

400 POKEV, 15: POKER, 0: POKESRK, 240: POKE 
HF, Z0+K NAS PUKELF, 10: POKELIA, 17 

405 PRINT"[HOM]"BS+" L4CRSKDIPHSOLSPUI 
NUMERO: "; : IFX=4THENPRINTP:G0T0415 
410 PRINTN 

415 FORJ=20T03:FORL=C0+Jm49+8mK (N>TOL 
+4: POKEL,KiN+4: NEXTL,J 

420 FORJ=0T03:FORI=S+J440+84KN)TOL+ 
4:POKEI,160:NEXT1,J 

425 FORJ=9TOT1:NEXTJ: POKEWA, 16 

430 PRINT"[CLRI"ESCS 

435 RETURN 

449 REMMAREPITE LA SECUENCIA 
dd 


450 FORN=1TONM:PRINT"CCRSKDIREPITELSPCI 
LACSPCISECUENCIA": T3=T1 , 
455 GETAS: IFAS=""ANDTI-TICTZMGOTHENG 


55 
460 IFTI-T3>T2A55THENO=1 : RETURN 


465 YRVALCAS): 1FY-SOK(N)THENO=2:RET 


470 1FY-S=kK(N)THENGOSUB408 : NEXTN 

475 1FX=4THENN=P+1 

480 IFN=N1+1THENO=3 : RETURN 

485 RETURN 

499 REM MENSAJES DE ERROR 


504 PRINT"[CLRIL2CRSRDIMESPCIPERDIST 
E-NOLSPCIFUISTELSPCIBASTANTELSPCIRAP 
IDO" :GOTOS15 

510 PRINT"[CLRIC2CRSRD IMA SPCIERROR= 


HASCSPCIPERDI DO" 
qa NS=1 :FORN=1T01 :NEXTN: 1FX=4THENNI 
a 


526 PRINT"[CRSRD]"NM-1"PASOSUSPCIFUE 
RONESPCICORRECTOS" : PRINT"[CRSRDIC25PCI 
NO. [SPCIDELSPCIJUEGOS: "G 

524 REMAAQUINTA SINFON LAA ON 


.. 
525 FORL=542721054296 : POKEL. 8: NEXT 
e POKEV, 15: POKER, 6; POKESR, 240: REST 

E 
535 READH: 1FH=-1THENFORL=54272105429 
6:POKEL 6: NEXT: GOT0668 
548 REHDL :READD : POKEHF, H: POKELF,L:PO 
KEMA, 17: IFNS=1THENPOKEWA, 129 
545 FORT=1T0D:NEXT :POKEWA, 16: IFNS=1T 
HENROKEWA, 128 
550 FURT=1T0S0:NEXT:GOTOS35 
555 DATAZS,177,100,25,177,100,25,177 
,100, 20, 100,600, 4,4, 250 
560 DATAZ2,227,100,22,227,100, 22,227 
,100, 19,63,800,-1 
565 REMMMTERMINACION CORRECTA 
ha 
570 PRINT"LCLRICZCKSRDIMALSPCIENHORA 
BUENA. [SPC JHASISPCI TERMINADO 9SPCICZURSRKDI 
[4SPCICON"N1 ; "PUNTOS. * 
575 PRINT"[CRSRDI[25PCINO. CSPCIDELSPCI 
JUEGOS: "G:TT=TT+N1:PRINT" [CRSRDIMMLSPCI 
PUNTUACIONESPCITOTAL : "TT :NS=8 
588 60T0525 
599 REMMMVER LA ULTIMA SECUENCIA 
dd 
608 1FX=30RX=4THENESU 
605 1FNM=1AND<X=10RX=2)THENGS0 
610 PRINT"CCRSRDIAMCSPCIQUIERESISPCI 
VERESPCILALSPCIULTIMAL16SPCICCRSRDICZSPCI 
SECUENCIALSPCI(S/N)7" 
615 GETAS: IFA$=""THENG1S 
“S"ANDASC"N"THENGIS 
“THEN PRINT"[CLRI"BS$C$ 
THENESU 
635 1IFN=N1+1THENNMeNmM+1 
640 FORN=1TONM-1 :GUSUB4AB : NEXTN 
649 REMMMQUIERES CONTINUAR AMARA 


658 PRINT"[CLRIC2CRSRDIALSPCIQUELSPCI 
QUIERESLSPCI?1Z8SPCIUCRSRDI 1. CONTINU 
ARCSPCI IGUAL" 

655 PRINT"[3SPCILCRSRDIZ. CONT INUARESPCI 
CAMBIANDOLSPCILASESPCICONDICIONESL3SPCI 
[CRSRDI3. TERMINAR. " 

657 PRINT"[CRSRDIMLSPCIPULSALSPCIELESPCI 
NUMERO" 

660 GETAS: IFA$=""THENGS0 

665 YEVALCAS) : IFYCI ANDY CI ZANDY O 3TH 
ENC6u 

670 UNYGOTO9S. 675,684 

675 GOTOZ8 

680 POKEY, 0: POKEWA, 9: END 

699 REMMMFOR STACK CLEAR INGA 


700 1FQ=1THENG=0 : GOTOSOU 
705 1FG=2THENO=0:60TOS10 
710 IFO=3THENG=9:G0TOS78 
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Vamos al estudio del juego de 
instrucciones Y 
nes prácticas. Como di- 
¡imos en el número anterior, Se 
pueden según su tipo cl instruc- 
Peones de carga y almas 
miento, transferencia, saltos, 16: 
gicas y aritméticas 

Se denominan instrucciones de 
carga a las que tienen PO! misión 
eargar” algo en Un Tegistro de la 
CPU (LDA, LDX y 1 DY en 
todos sus: modos de dirección 
miento). Las de al macenamiento 
Son aquellas que almacenan” o 
guardan el valor contenido en 
ea e los registros En una post, 
ción de memoria (STA, STX y 
Cry). Las de transferencia “trace 
Beren el contenido de un regio O 
TSX, TXA, 


veremos Unas 


tres tipos 
de “branch” 
Lógica son aquellas que * alizan 
las “operaciones lógicas” (AND, 
EOR y ORA), de desplazamiento 
las que “desplazan” DIS de algún 
dato (ASL, LSR, ROL y ROR) 
las de comparación * comparan” 
datos (CMP, CPX y € PY), y 
aritméticas son las que efectúan 


este tipo de operaciones ( ADC, 
DEC, DEX, DEY INC INX 
INY y SBC) 


También podemos encontrar 
otros tipos de instrucciones, ale 
Son las que afectan a las banderas 


Mel registro de estado (CLC, 
CLD, CLI y las que 
afectan ja, PHP 
PLA y 


ifican estas 
perar a que 
aparezcan en la revista todas las 


Me instrucciones en orden alfa- 
bético: 

DESC Suma la memoria al acu 
mulador con ACArreo. 
AND Hace “AND” con la 08 

moría y el acumulador 
Desplaza un bit A la 


ASI 


A 


CL 
cmMP 
CcPxX 
CpPY 
DEC 
DEX 
DEY 


EOR 


izquierda (memoria O aC u- 
mulador). 

Salta si carry 0, 

Salta si Carry 1 

Salta si cl resultado es cero. 
Compara los bits de la 
memoria y el acumulador 


Salta si el resultado £s 
menos. 

Salta si el resultado nO £3 
cero. 


Salta si el resultado es más, 
Interrupción por software 
(break) 

Salta si no hay sobrecarga 
Salta si hay sobrecarg 
(v=0). 

Hace C=0 (clear carry) 
Hace D=0 (clear decimal 
mode) 
1=0 (clear 
sable bit). 
Borra bit de 
(V=0) 
Compara memoria y acu- 
mulador. 

Compara memoria € indice 
x 

Compara memoria € indice 


E 


interrupt di 


sobrecarga 


Decrementa en uno la 
memoria 

Decrementa en uno el 
indice X 

Decrementa en uno el 
índice 


“OR exclusiv a” de la me- 


moria con el acumulador 
Incrementa en Uno la me- 
moria 

Incrementa en uno el ín- 
dice X 

Incrementa en uno el ín- 
dice Y 

Salta a una nueva dirección 
(como GOTO en Basic) 
Salta a una nueva dirección 
guardando la dirección de 
rerorno (como GOSUB). 
Carga el acumulador con 
la memoria 

Carga el indice X con la 
memoria 

Carga el índice Y 
memoria. 
Desplaza un bit a la dere- 
cha (memoria 0 acumula- 
dor). 

No opera (no hace nada). 
<OR” de la memoria CON 
el acumulador 

Guarda el acumulador en 
el stack. 

Guarda el registro de es- 
tado en el stack 

Saca el acumulador 
stack 

Saca el registro de estado 
del stack 

Gira un bit a la izquierda 
(memoria O acumulador). 
Gira un bit a la derecha 
(memoria O acumulador). 


con la 


del 


Vuelve (return) de una 
interrupción. 

Vuelve de subrutina (re- 
turn). 

Resta la memoria del acu- 
mulador. 


Pone carty= 

Pone modo decimi 
Deshabilita las interrup 
ciones (121) 

Almacena (guarda) el acu- 
mulador en la memoria 
""imacena el indice X en la 


memoria 
Almacena el indice Y en la 
memoria 
Transfiere el acumulador 


al índice 


CN TOS 
JUMP SUE [Se Fi 2) 


O 
Je 
ARAN! 
o AA 
o e 
Bs BRANCH ON Y=1 a 
ble. 
Bla: 
Can TT Tri 
Eli 
lol Bllol:clls la Joss | 
Ea 
HE 
BROTTIITTTTTTT PPP 
ER 
All 
E TIT TTRRITT 
JE ee 


BURN INS (e o 
Mrs | rr sus (see 2) 

sac | ames w 
1. 
11 


a 


TI) ADD do "NI PAGE BOUNDARY E CROSSED 

(2) ADD 1 1O."N' IF BRANCM OCCUAS 1O SAME PAGE 
ADO 2 TO 1 BRANCH OCCURS TO DIFFERENT PAGE. 

(8) CARRY NOT = BORROW 

A) 1 DECIMAL MODE 2 FLAG IS INVALID 

ACCUMIULATOR MUST BE CMECKEO FOR ZERO RESULT 


Mo 
mor 
ACCUMULATOR 

MENOR PER ESFECIVE ADORESS 
MEMORY PER STACK PONIER 
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pTAY Transfiere el acumulador 
al índice Y. 
-1SX Transfiere el puntero del 
stack al índice Xx. 
TXA Transfiere el índice X al 
acumulador. 
TXS Transfiere € índice X al 
untero del stack. 
TYA Transfiere el índice Y al 
acumulador. 

Puede parecer rara € inútil la 
instrucción NOP, ya que no hace 
absolutamente nada, pero esta 
instrucción es muy útil en contra 


AY 


RO 


QUA 


el desarrollo de programas, cuan- 
do todavía no hemos conseguido 
una versión definitiva y segura- 
mente se nos olvida alguna ins- 
trucción importante, Si hs 


destará con cambiarlas por las 
instrucciones que olvidamos, con 
esto nos ahorraremos tener que 
escribir todo el programa; 
Quizás alguno de los recién lle- 
gados se pregunte cómo en basic 


regla son las rutinas reubicables 
(relocatable), que son aquellas 
que no contiene este tipo de sal- 


pueden cambiar de 
dirección Sin afectar su correcto 


AQUÍ 


QA 


"Vamos a ver ejemplos sencillos 
de programas en código, máquina, 
df Brimero de ellos rellena una 
Zona de memoria con UN dato. 
START LDA DATO 

LDX *SFE 
LAZO STA DESTINO,X 


BNE LAZO 


a 
Esto en basic sería: 


so 1F X <> 0 THEN 30 
60 END 


Este programa podría hacerse 
más sencillo con un lazo FOR/- 
NEXT, pero lo he escrito de este 
modo para que sea idéntico al de 


Una aclaración, en realidad el 
programa que aparece aquí no 


taremos realizar el proceso de 
ensamblado (pasarlo 2 c.m.) por 
alguno de los procedimientos 
posibles: 

El más sencillo pero más caro 
es utilizar Un 'macro-ensamblador 


erc.). Para el VIC-20 existen car- 
guaje máquina, que facilita el 


utilización de etiquetas. 

Por último se puede realizar el 
roCeso mano, s 
método más didáctico pero al 
"nismo tiempo es el más pesado e 
, consiste en ir bus- 


memoria utilizando instrucciones 
POKE después de haber conver- 
hexadecimal en 
decimal. 

Respecto al modo de utilizar 
los ensambladores, nO lo voy A 
explicar ya que los manuales Fes- 
pectivos dan todas las instruc- 
ciones para Su funcionamiento y 
varían bastante de uno a otro. 

Vamos por el camino dificil, lo 
haremos a mano: 


—Primero escogemos una PO, 
sición de memoria RAM que esté 
omo la rutina es corta 
podemos utilizar el buffer de cas- 
Pote que se encuentra en $033C 
“Decidimos que cl dato sea 
$20 y que el destino será $0400 


de mnemónicos y vemos que en 
modo inmediato es A9, por tanto 
LDA $520 será A9 20. 
—Seguimos buscando el resto 
de las instrucciones de ¡gua 
modo, pero Al E 
LAZO tenemos un problema al 
hacerlo a mano, debemos calcu- 
lar la “distancia del salto”, 


ROGRAMACION 


vamos colocando los datos en las 
posiciones 828 y siguientes, Y 
luego podemos probar la rutina 


lo hemos 
debe- 


PO DX ASEF para que DOTE lo 
que queramos. 

En código máquina la rutina 
debe queramos. 


033C A9 20 LDAHS20 
033E A2 FE LDX4SFF 
0340 9D 00 04 STAS0400,X 
0343 CA EX 

0344 DO FA BNESO340 
0346 60 R 


Para el y1C-20 debemos cam- 
biar el STAS0400,X, por la direc- 
ción donde se encuentre la panta- 
ta, $1E00 si no tiene ampliación 
RAM, que sería 9D 00. 


E. 
La columna de la izquierda del 
listado es la dirección donde lo 
colocamos (en hexadecimal). Las 
del centro son el código de ope- 
ceción y el operando, que 65 lo 
que debemos colocar en la 
e emoria para decirle al ordena- 
dor que haga “eso”, de la 
derecha son los mnemónicos. Si 
de un monitor de 
lenguaje máquina bastará teclear 
la columna de la izquierda y las 
del centro, con un ensamblador 
entrariamos la de la izquierda 
Sólo la primera vez, y luego la de 
la derecha, YA que 'el mismo cal- 


208, 250, 96), y los introducimos 

'OKE en modo directo 

o colocándolos en sentencias 

m lazo FOR, 

A NEXT, o similar. 

Como ejemplo, aquí tenéis UN 
cargador para este programa: 


10 READ AE A=-1 THEN 
EN 
20 POKE 828 + Z, Az =Z7 + 
1:GOTO 10 
100 DATA 169, 32, 162, 255, 
157, 0, 4. 202, 208, 250, 96, 


-l. 
Para probarlo ya sabéis, RUN 
para colocarlo en sus posiciones 
Y luego $YS82 y RETURN para 


10 A=DATO ello restamos la dirección de la ejecutarlo. 

20 X=255 instrucción siguiente 2 la direc- Si queréis podéis probar su 
30 POKE (DESTINO+X), DATO — ción de destino y ese es el salto. equivalente en basic Y comparar 
40 X=X-1 uando terminemos con todo los tiempos. 
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MERCADILLO 


e Vendo un ordenador Commodore 4000 y otro 
3,000. Buen estado. Con programas, Teléfono; (91) 
402 38 89 / 401 21 50 (Ref. M-70/ 

e Vendo VIC-20, Casete C2N, Placa expansora 4 
cartuchos, Curso completo de Basic (2 libros y 4 cin- 
1as), Guia de Referencia al Programador VIC-20 y 15 
juegos comerciales por 35.000 ptas. (José Lainez, 
Teléfono: 610 70 80 de 15,30 en adelante) Todo ello 
comprado en julio de 1982. (Ref. M-86) 

e Intercambio programas para C-64 en cassette, Julio 
Rodríguez, C/Zurbano, 93, 28003 Madrid. Teléf. 
(91) 234 98 98. (Ref. M-87) 

8 Se vende lote de más de 150 programas por 5.000 
pesetas, interesados llamar al 23605 38 6 231 5095, o 
escribir a: C/Mallorca, 420, 6% 1*. 08013 Barcelona, o 
a Xavier Querol Carrillo, C/Córeega, 613, 5% 1" 
08025 Barcelona. Mandamos lista. (Ref. M-88) 

e Vendo VIC-20 con 32Kb de RAM, código 
máquina, 2 cartuchos de juegos, 1 programa de 
fichero y otro de agenda, curso Basic primera parte, 
guía de referencia del programador, y mucha infor- 
mación y revistas. Urge vender por cambio de equipo. 
Juan Altimira Vilar, C/Pintor Togores, 12, 32 1, Cer- 
danyola (Barcelona). Teléf.: 93-691 07 28. (Ref. M-89). 
e Vendo programa en cinta VIC-20, Ajedrez (nueve 
niveles); Vic print (procesador texto); Vic cale (hoja 
cálculo), Graphics (alta resolución); odisea espacial 
(juegos); Tienes retentiva (educativo); 1% parte 
programación + libro todas por 7.000 ptas. Carlos 
Infante. Tel. (93) 311 27 06 (Barcelona). (Ref. M-90) 
e Si alguien ha copiado y vende los programas lista- 
dos en los dos libros de “curso de introducción al 
Basic" de Andrew Colin editado por Micro Electró- 
desca ganarse unas perras dando servicio a los 
demás, espero que se ponga en contacto conmigo 
para venderme una copia, ya que quiero introducir a 
más hijos con ayuda de estos libros, pero no tengo 
tíempo, Alfredo Ruiz Martínez, C/Juan Gálvez, 13. 
41007 Sevilla (Ref. M-91) 

e Vendo un VIC-20, 24,000 ptas. Memoria de 16K 
9900 ptas., 5 juegos Indescomp a 800 cada uno, 2 
juegos ingleses a 900 cada uno, 1 juego en cartucho 
1.100 ptas; 1 libro con 30 juegos, 1.200 ptas.; 1 libro 
en inglés, 1.200; SO programas escritos a máquina 
1,000, o todo por 36.900. Llamar al 446 65 $6 de 
Madrid. Preguntar por Ismael (a partir de las 16:30) 
(Ref. M-92). 

e Me gustaria cambiar programas y juegos para el 
VIC-20. Tengo super-expander y cartucho de 16K. 
Llamad a Jose al 93-422 66 41 (casa) o al 93 
332 56 90 (trabajo) Barcelona. (Ref. M-93) 

e Cambio controlador doméstico de 8 reles y cartu- 
cho de juego ROADRACE por impresora para el 
VIC y si parece poco también regalo ZX-81 con 16K 
+ juegos con manuales, etc. También cambiaria el 
ZX-81 con todos sus complementos por super- 
expander o cartucho de 16K. José Tomás Gómez 
C/María Diaz de Haro, 16, 3-F. Bilbao (Vizcaya) 
(Ref. M-94) 

e Descaria intercambiar juegos y todo tipo de pro- 
gramas para el C-64, Escribir a: Eduardo Martín 
Ruiz, C/Almagro Segura, 4. 18012 Granada, man- 
dando lista de programas, o llamadme al Teléf.: 958- 
28 22 60, Interesan sobre todo juegos. (Ref. M-95) 
Estoy interesado en el intercambio de programas de 
juegos para el C-64. Escribir a: Alejandro Canto 
Navarro, C/Doctor Gadea, 1, 22 E+F, 03003 Ali- 
cante o Namar al teléfono 965/22 33 30. (Ref. M-96). 
e Estoy ¡¡interesadísimo!! en el cambio y compra de 
juegos y programas de todo tipo del C-64 en cinta. 
Juan Martínez López, C/Honduras, G-5*, G-9%, 19, 
1',A. Barcelona (27). Tel. (93) 340 94 65 (Ref. M-97). 
e Descaría intercambiar programas para Commo- 
dore 64 con usuarios del mismo. Soy Juan Carlos 
Stubbs Cruz, C/Mirador, 8 “ALBION” Urbaniza- 


Adicionalmente es recomendable que envi 


ción “Cerrado de Calderón” 29018 Málaga. Teléfono 
952/29 15 74. (Ref. M-98) 

e CBM-64 Intercambio o vendo programas comercia- 
les, Gonzalo Machado Galas, c/Marín Ocete, 8, 6* 
F. 18014 Granada. (Ref. M-99) 

+ Compro programas para C-64 juegos y aplicacio- 
nes. En especial ajedrez, trazado de funciones, esta: 
dística, etc. Programas de gestión. Todos en cinta o 
cartucho, Jordi Sierras. Lista de correos, Alella (Bar- 
lona). Tel, 93-555 22 64 (Ref. M-100) 

e Cambio cualquier tipo de programas y experien- 
cias para el C-64, Sergi Arbos Mauri, C/Forn del 
Vidre, 16, Y, 4”, Vilanova í la Geltrú (Barcelona). 
Tel.: 93-693 18 31 (Ref. M-101) 

e Vendo microordenador Dragon 32 por estrenar en 
perfecto estado, con cables para conectarlo a cual- 
quier cassette y a TV. Regalo 2 juegos en cinta 
Manual en castellano. Precio a convenir, Interesados 
dirigirse a: Eusebio Zuloaga Arisa, C/Balmes 444, 22 
1' 08022 Barcelona. Tel.: 93-247 22 76 (Ref. M-102) 
e Tengo 15 años y el VIC-20, mis posibilidades eco- 
nómicas no me llegan para adquirir un periférico, 
por esto agradecería si alguien me pudiera vender el 
Datassette por unas 5.000 ptas. Mis señas son: David 
Puig Rojals, c/Lorenzana, 36, 4* B. Gerona. Tel. 972- 
20 46 31. (Ref. M-103) 

Vendo o cambio cartucho de juego ref. VIC-1097 
Jupiter Lander” por cartucho de ampliación Ram de 
BK o 3K También Introducción al lenguaje de progra- 


mación Basic por 3000 ptas. Desearía contactar para 
intercambio de programas del VIC-20, Franciso 
Fernández Iglesias, C/Ramiranes, 4, Porrino (Ponte- 


vedra) (Ref. M-109) 

e Vendo expansor de 4 cartuchos para el VIC-20 
marca Indescomp con interruptores individuales por 
6.000 ptas y cartucho lenguaje máquina VIC-20 por 
3.000. Intercambio programas para C-64 cinta y 
disco, Miguel Angel Martínez Martínez, C/Madre de 
Dios, 16, 4%-D, lzda. 26004 Logroño. La Rioja 
(Ref. M-105) 
e Impresora MPS-801 Commodore vendo por 45.000 
ptas. (comprada en mayo 1984) por cambio a modelo 
mayor, Interesados dirigirse a: Manuel Vijande, Tel 
(985) 2521 56 de 8 a 10, mañanas y tardes. (Ref. M-106) 
+ Compraria impresora para CBMÓ4 precio a conve 
nir. ¿Acabas de comprar un C-64 y no sabes cómo 
usarlo? Vendo la mejor introducción al Basic, senci- 
lla, práctica y fácil de entender: EL CURSO DE 
INTRODUCCION AL BASIC. PARTE 1, de 
Andrew Colin. Este libro tiene cantidad de ejemplos y 
programas a probar, muy fáciles de entender. Lo 
vendo por 1.850 ptas. Mi teléfono es el 229 07 02 de 
Barcelona. Preguntar por Francesc. Francesc Guasch 
Ortiz. C/Jerez n* 40. 08032 Barcelona. (Ref. M-107) 


e Por cambio de ordenador vendo ampliación de 16K 
(13.000 ptas.); vídeo-juego en cartucho ALIEN (3.600 
ptas.) cartucho de ajedrez SARGON II CHESS (3.600 
ptas.), cartucho SÚPER EXPANDER (5.800 ptas.) 
Todo junto por 20.000 ptas. Manuel Fuentes Sorri- 
vas. Apartado de Correos, 1.473, Vigo (Pontevedra), 
Teléf.: (986) 47 17 68. (Re/. M-108) 
e Vendo 3 cassettes de juegos para el VIC-20 por 
1.000 ptas. cada uno. Los juegos son: Tron, Skramble 
y Odisea Espacial (16K). Vendo también la Guía de 
referencia del programador del VIC-20 y el curso de 
introducción al basic 1* parte, cada una por 1.300 
ptas. Llamar en horas de comida o cena al teléf.: (985) 
56 13 90. O escribir a Benito Martínez Fernández 
Colonia del Quirinal, n* 3, 1% izda. Avilés (Asturi 
(Ref. M-109 
e Vendo dos programas para el C-64: “Shadowfax" y 
'Compiler”, 3.000 ptas los dos. Agustín Quevedo 
Velasco, C/Oña, 55, 4% B. Madrid Tel.: 202 94 28 
(noches) (Ref. M-110) 
+ Cambio 2 programas de VIC-20 por 2 de C-64 
hechos por equivocación. Son Topo loco y Tron. Más 
información sobre los programas en Avenida del 
Norte n* 8atc. 3' Manuel González Martinez. Hospi- 
taler (Barcelona). Teléf.: 240 23 S0. Llamar sábados 
por la tarde. Domingos todo el día. Entre semana de 
2a 3 del mediodía (Ref. M-111) 


) 


De no especificar duración, los anuncios serán publicados durante 1 mes. 
Debido a ciertos abusos que nos han sido comunicados, los anuncios gratuitos de Market club 
solamente serán publicados si vienen con nombre, apellidos y dirección completa. No se admitirán apartados postales. 
Lamentamos que todos tengan que sufrir esta medida por culpa de algunos “listos' 
el número de teléfono por si hubiese alguna pega, 
si no deseáis que lo publiquemos podéis decirlo en la carta. 


e Desco ponerme en contacto con socios o colegas 
radioaficionados para intercambiar programas y 
experiencias. Tengo un C-64, José Luis Espinar, Indi- 
cativo: EA7EBT. Apartado 222. Fuengirola, Málaga 
Teléf.: (952) 47 1076. de 15 22 horas (Ref. M-112. 
e Vendo VIC-20 con: Superexpander +3Kb, Vicmon 
(monitor leng. máquina), vic spedd (graba 6 veces 
más rápido), y más de 150 programas (comecocos, 
Defensa, Traxx, Vic-cale, Vic-Base, etc.). Francisco 
Plaza Pérez C/Jesús Rivero Meneses, 2, 47014 Valla- 
dolid. Teléf.: 33 23 25. (Ref. M-113) 
e Vendo C-64, nuevo, sin uso, comprado en noviem- 
bre del 83, con cassette Commodore, comprado en 
febrero del $4, con libro “guía de referencia” Precio 
real 94,800, precio de venta: 75.000 ptas, Luis Javier 
Redondo Fernández; C/Nicasio Pérez núm. 9-3% bis 
47005 Valladolid, Teléf.: (983) 29 93 84. (de 11-a 11,30 
oches). (Ref. M-114). 
e Vendo VIC-20 comprado en enero 1984 por 25.000 
ptas. cassette Commodore por 9.000 ptas; $ juegos de 
cinta Indescomp y 1 de cartucho Commodore por 
14.000 ptas; Guía referencia programador y Basic 1 
con cinta por 1.000 ptas. Comprando todo el lote 
haría más rebaja y regalaría dos colecciones de revis- 
tas, joystick y cassette grabado con 11 juegos. Llamen 
o escriban al teléf.: (91) 613 49 44, Antonio Aguilar 
Melián. Parque Zarauz Bloque 42 Móstoles (Madrid) 
(Ref. M-115) 
e Vendo y cambio programas para C-64, Base de 
datos, Ajedrez, Música, juegos, etc. Jordi Bachs, 
Rambla San Sebastián, 30 4% 1*, Sta. Coloma de 
Gramanet, (Barcelona) (Ref. M-116). 
Vendo VIC-20 con expansión de memoria 16K más 
de 100 programas diferentes y de calidad: Juegos, uti 
lidades, base de datos, etc. cartuchos y específicos 
para radioaficionados, junto a una extensa documen- 
tación y libros, Todo 40.000 ptas. Alfonso Moraleda 
Pérez, Clara del Rey, 81. 28002 Madrid. Tel.: (91) 
415 02 24 - Noches. (Ref. M-117). 
e Vendo C-64, unidad disco 154, juego joystic. Apto 
gestión. Nuevo, Buen precio, Escribir a Ricardo Sote- 
ras Sogas, C/Tres Creus, 79. Sabadell (Barcelona) 
Dar n* Teléfono, (Ref. M-118). 
e Descaría contactar con usuarios de C-64, más o 
menos de mi edad (14 años), para intercambio de 
programas tanto de juegos como de utilidades (sobre 
todo de matemáticas). Francisco Javier Almellones, 
C/Bahía de Algeciras, 8-32 C. Algeciras (Cádiz) 
Teléf.: 66 49 34 (Ref. M-119). 
e Quisiera intercambiar juegos con otros lectores de 
esta magnífica revista, Mí dirección es: Luis Alfonso 
Sanz, P? San Isidro, 5,2% A. Valladolid-12. (Ref. M-120) 
'ndo Ordenador Personal Commodore 8032. 
32K, con Floppy doble 4040, nuevo. Precio total 
300.000 ptas. Vendo también PET 2001, 7K, con cas- 
sette y pantalla incorporados. Precio 40,000 ptas. 
Teléf.: 93-674 62 33 (horas de cenar) 6 93/661 55 16 
(mañanas), Barcelona (Ref. M-121) 
e Por cambio de equipo vendo VIC-20 comprado en 
noviembre del 83, totalmente nuevo. Regalo al com- 
prador más de 100 programas para VIC básico o con 
ampliación de memoria (muchos de ellos comerciales 
y de utilidades, como VIC-PRINT, VIC-CALC, 
Bases de datos, ajedrez y juegos diversos). Y sólo por 
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25.000 ptas. Acepto ofertas. Dirigirse a Victor J. 
Calvo Medina. Calle Bcatas 20, 32 D. 29008 Málaga. 
Teléf: 21 44 09. (Ref. M-122). 
e Vendo VIC-20, casi por estrenar por 39.000 ptas. 
con cassette manual del usuario, curso Basic | (libro y 
2 cintas), cartucho de ajedrez, 2 cintas juegos de 
Indescomp y varias cintas más con 50 programas y 
juegos. Preguntar por Juan (93) 371 90 03 o escribir al 
apartado 37 de Esplugues (Barcelona). (Ref. M-123). 
$ Cambiaria toda clase de programas para VIC-20 
con o sin superexpander. Tengo algunos muy buenos. 
También los vendería. Alvaro Ibáñez Blas. C/Carde- 
nal Siliceo, 20, 22 E, Madrid-2. Tfno.: (91) 416 09 13 
(Ref. M-124) 
+ Compraría impresora VC-1525 o SEYKOSA, pre- 
cio a convenir, si es posible que el vendedor sea de la 
provincia de La Coruña o cercanías también me inte- 
resa el monitor de lenguaje máquina, Para ofertas 
escribir a José Luis Ferreiro Meijide, Apartado 378; 
La Coruña. (Ref. M-125) 
e Vendo C-64 por 50.000 ptas. Lote de programas 
Grandmaster, Base de datos , Gráficos 64, Monopoli, 
Rox 64, Tank Atack, Hustler, Frogger, Motormania, 
Flight) todos en 5.000 ptas, Sueltos a 1.000 ptas, Con: 
trolador para controlar aparatos externos con 8 relés 
1 6.000 ptas, Antonio Toral Peinado. C/Puente n* 3 
llora (Granada) Telf.: 958/46 30 09. (Ref. M-126). 
e Vendo ampliación de 16 RAM para VIC-20 por 
12,000 ptas. Razón: Teléf.: 2530987, Barcelona. (Ref. 
M-127) 
a Vendo programa para C-64. 16 juegos 3/0 amplia: 
ciones por cint tas, por cinta más gastos de 
envío. Razón: Maite, C/Moncada n? 5, 2% izda. dcha. 
Tíno.: (94) 443 6779. Escribir o llamar. (Ref. M-128). 
+ Compraria programa Assembler (Ensamblador y 
desensamblador) en cassette para CBM 3000 con ins- 
trucciones, Artemio González Pérez-Fernando Aro- 
cena Quintero, 1. 38009 Santa Cruz de Tenerife, 
(Telét.: 22 42 44). (Ref. M-129) 
e Vendo NEW BRAIN 32K con display (cables, 
mentación, cassette sanyo, manual, guía del princi- 
plante, technical software manual, programas). Todo 
en perfecto estado por 65,000 ptas. Angel Osinaga 
Rubio. C/José Jimeno 2-2 Drcha. Pamplona 31015 
Navarra, Teléf.; (948) 11 35.07. (Ref. M-130). 
e Busco gente en Sevilla para poder comprar entre 
bastante gente la guía de programación (que son 
2,000 ptas, del C-64) y usar luego el arte de la fotoco- 
pia, También busco gente con un nivel medio para 
compartir programas, Luis Luna Barrios. P/Gomila, 
16-10, Sevilla, 7. Tfno.: 954, 51 33 45. (Ref. M-131). 
e Vendo unidad de disco mod. 1541 con sólo seis 
meses y muy poco uso por Ptas. 75.000. Interesados 
escribir a: Alfredo Ruiz Martinez, C/Juan Gálvez, 18, 
41007. Sevilla. (Ref. M-132). 
e Vendo por cambio de ordenador, 15 fabulosos pro- 
gramas para cbm 64: Simons, Basic, Vic Tree, Fort 
Apocalypse, Choplifter, Solo Flight, Skramble New, 
Falcon Patrol, Moon Buggy, Pitstop, Soccer 64, Bur- 
time, Superpipeline, Radar Rat Race, Matrix y 
¡ser Zone por 8.000 ptas. Su precio de mercado es 
10 veces, Urgente. Fernando. Horas comida, Tfno. 
(91) 415 37 32, (Ref. M-133). 
+ Vendo VIC-20 comprado en dic-83, con el datas- 
sete, ampliación 16K, joystick, 5 programas y libros. 
Todo 45.000 (De no estar de acuerdo con el precio 
hacer ofertas), Teléf.: (976) 31 01 17 de Zaragoza 
Javier Boira. Via Ibérica-38, 8 Zaragoza. (Ref. M-134) 


CLUBS 


e Club de amigos. Foto Estudio 2. Plaza de Sombre- 
reros, 2. Palma de Mallorca, Tel.: 21 31 62. (Ref. C-1) 
e Club de programación Alaiz. Tels.: 254:480-257 704. 
Pamplona. (Ref. C-4) 
lb de Commodore de Albacete. Fernando Mar- 
túnez Guerrero, Lu Roda, 39. 5* D, Albacete. (Ref. C-5) 
rculo de Durensan Vigués. Vigo. C/Venezuela, 
48, Entrechan. Tels.: (986) 410 683/422 519. (Ref. C-6) 
Asociación Manchega de Usuarios de CBM-64 
(A.M.U. C-64). C/Blasco de Garay, 10. Albacete. 
(Ref. C-13). 
e Club MÍCRO-ESPLAL. Gran Vía, 682. Pral. (Entre 
Bruch y Gerona) de Barcelona. (Ref. C-14). 
8 Quísicra saber si existe algún Club Commodore en 
Sevilla, Francisco Javier Recio Lamata. C/Fernán 
Caballero, 22. Sevilla-1. (Ref. C-17). 
$ Agradeceria mucho a todo el que pudiera infor- 
'marme sobre la creación del Club Commodore en 
Girona. Daniel Bassas. Gerona capital. Plaza Mar- 
qués de Camps, 16, 39, 27. Tel. 21 27 26. (Ref. C-18). 
Club Ensenada de Santander. Club Ensenada 
C/Sta. Lucía, 1, 19. Tel.: 22 59 92. (Ref. C-19). 
e Estoy formando un club de intercambio de pro- 
'gramas (en cinta) para VIC-20, Jaime Vidal Forteza. 
€/Sor Damiana, 16-1% S. Francisco (Pil. lari). Palma 
de Mallorca. (Ref. C-20). 


66/Commodore World Octubre 1984 


* Me interesaría conocer conocer si hay algún club de 
amigos del VIC-20 cerca de mi ciudad. Agustín Ruiz 
Castrillo, C/Gregorio Solabarricta, 49, 4% izda. 
Miranda de Ebro (Burgos). (Ref. C-21). 

e Estamos formando un Club de Usarios en el centro 
de Madrid. Cualquier interesado que se ponga en con- 
tacto con nosotros en el apartado 427 de Madrid, diri- 
giéndose a Rafael (EB4XD). Teléf. 276 66 94 (Dejar 
teléfono. Contestador). (Ref. C-22). 

e Me gustaría entrar en contacto con usuarios del 
CBM-64, para intercambio de programas e ideas, así 
como para trabajar en grupo”. Antonio Iglesias 
Arias. C/San Isidro Labrador, 16, 1% B, Palma de 
Mallorca, 5. Balcares. Teléf.: 412 728. (Ref. C-23). 

e Interesados en la formación de un club de usuarios 
de los ordenadores “VIC-20 y Commodore 64”. 
Escribir o llamar a Félix Portabella Padro. C/Forn de 
Santa Llucia n* 1, 2% Manresa, Teléf.: 8722297. (Ref. 
0-25). 

$ Agradecería la dirección o teléfono de algún socio 
de mi ciudad o alrededores, a fin de ponerme en 
contacto con él para ver la posibilidad de formar un 
club o similar. José Esteban Llusar Molés. Daoiz, 
2-1* 2. Pro de Sagunto (Valencia). (Ref. C-39) 

+ Grupo de usuarios de Commodore en Tarragona, 
estamos intentando formar un club lo más sólido 
posible, no nos mueve ningún interés lucrativo, y 
estamos desarrollando un sinfín de actividades, 
encaminadas a tener un más amplio conocimiento de 
nuestro ordenador, Alfred Blasi. Tel.: (977) $47 307. 
Tarragona, (Ref. C-35). 

e Desco contactar con niños-as que descen formar un 
club de ordenadores Commodore 64 y VIC-20 (puede 
ser otra marca), para intercambiar experiencias. 
C/Avda. del Norte n* 8 atc. 3* Hospitalet (Barce- 
lona). Manuel González Martinez, Tel.: 93-240 23 50. 
(Ref. C-36). 

e Interesados en la formación de un club de informá- 
tica en Granada capital diríjanse por correo a C/ San 
Jerónimo, 23, 2%. 18001 Granada. Miguel A. Puerta 
Carrasco. (Ref. C-28). 

e Si queréis que hagamos un club “Vic-20" poneros 
en contacto con Antonio Recober. Teléf.; 32 20 46. 
Málaga. Se trata de intercambiar programas. Cono- 
cimientos y experiencia sin que nos cueste dinero. Si 
algún 64 quiere hacer el camino a nuestro lado. 
Podemos intentarlo, (Ref. C-29). 

e Descaría contactar con interesados en formar un 
club de usuarios del C-64 en Granada e intercambiar 
programas y experiencias. Antonio Toral Peinado. 
C/Puente n* 3. lllora (Granada). Tel.: 958-46 30 09 
(Ref. C-30). 

e Para formación club nacional de CBM Series 2000 
y 3000 exclusivamente, ponerse en contacto por carta 
con Artemio González Pérez. Fernando Arocena 
Quintero, 1. Teléf.: 22 42 44, 38009 Santa Cruz de 
Tenerife. (Ref. C-31). 

e Me gustaría contactar con alguien de Motril para 
compartir experiencias y/o formar un club de C-64 (y 
VIC-20 si hace falta). Ya tengo local. Mi teléfono: 
958-600 314 (Ref. C-32). 

e Ha nacido el club “Brian de Chip" para usuarios del 
C-64 y Spectrum 16K. Crearemos una revista propia, 
pero necesitamos colaboraciones, programas e ideas. 
Intercambiamos programas listados o en cinta, escri- 
bir desde cualquier rincón de España, prometo con- 
testar. Francisco Reig López, C/Marina, 261, 39 $", 
08025 Barcelona. (Ref. C-33). 


(Viene de pág. 4) 
que podéis imaginar lo que supone una partí 
cula de polvo en el recinto donde lo fabrican. 

La causa de que los chips pongan “made in 
Japan" es que allí fabrican las cajas al ser más 
barata la mano de obra, pero lo de dentro es 
“made in USA”. En fin que aprendimos bas- 
tante este día. Después la limusine nos llevó al 
aeropuerto de Filadelfia para tomar el avión de 
vuelta a Nueva York. 

El miércoles por la mañana tomamos otro 
avión desde el aeropuerto de La Guardia a 
Boston, donde nos recogió Scott Baum, que es 
el analista informático de los PCs en la sede de 
nuestra compañía en Framingham (MA). Nos 
llevó a comer y fuimos a visitar el edificio de la 
compañía, conocimos a Marion Kibbee, Debra 
Wetherbee y todos los jefes de los distintos 
departamentos, que nos enseñaron cómo 
atienden a la correspondencia, todo lo hacen 
con procesadores de texto igual que nosotros 
utilizamos el easy script, la diferencia estriba 
en la cantidad de personas que se encargan de 
la correspondencia y el volumen de esta. 

Stott nos llevó de vuelta a Boston, por donde 
paseamos para ver los puntos interesantes y 
luego fuimos a cenar en un relajador restau- 
rante situado en uno de los edificios más altos 


de la ciudad con vistas al puerto. La cena, la 
compañía y las panorámicas fueron encan- 
tadoras. 

Al día siguiente llegó Olga Greenwood con 
el conductor de la limusine, que era similar a la 
de Commodore pero mejor (además de lo de la 
otra tenía vídeo para ver películas en el 
camino..., nos llevó a la sede de la compañía en 
Peterborough, donde hacen la hermana gemela 
de la Commodore World en América, que se 
llama RUN. Allí fuimos a comer con Guy 
Wright (el editor técnico de RUN), Dennis 
Brisson (el editor jefe), Matthew Smith y 
Michele Christian. Olga nos prestó una gran 
ayuda, ya que hablaba perfectamente español, 
y puedo asegurar que pasar varios días segui- 
dos traduciendo todas las explicaciones sobre 
las fábricas de Commodore y circuitos integra- 
dos, en las compras y en todo, es una tarea que 
da bastantes dolores de cabeza, ya que la única 
persona con la que hablaba mi idioma era con 
Joan, y para él también fue un alivio poder 
hablar con otra persona. Luego dimos un 
paseo en un coche de caballos viendo los fron- 
dosos bosques, el lago, y todos los rincones 
pintorescos incluyendo cl rancho donde Michele 
guarda un potrillo joven. La limusine nos 
recogió en el rancho para llevarnos a visitar las 
instalaciones de RUN, 73,5, Hot Co-co, 80 
Micro, Incider, etc. Le enseñaron a Joan el 
proceso de fabricación de la revista desde el 
principio al fin. Parecían surgir los computa- 
dores en todas las fases de la revista, era fantás- 
tico. Más tarde volvimos al hotel en Boston y 
dimos una vuelta por las instalaciones deporti- 
vas antes de cenar, Joan prefirió verlo todo, 
pero a mí me gusta más la natación y aprove- 
ché la oportunidad en el hotel, luego cenamos 
y dimos una vuelta por el Quincy Market que 
£s uno de los lugares típicos de esta ciudad. 

El viernes teníamos plancada una visita al 
acuarium y muscos de la ciudad, pero el can- 
sancio hizo que la anulásemos, nos fuimos a 
dar una pequeña vuelta por la ciudad para 
hacer las compras de rigor (postales y cosas de 
esas) y tomamos un avión hacia Nueva York, 

"Tras todas estas peripecias volvimos al hotel, 
y el sábado día libre para compras..., también 
nos recorrimos la parte sur de Manhatan, 
teníamos que aprovechar el día ya que se ter- 
minaba el tiempo y queríamos verlo todo, 

El domingo fuimos apenados a tomar el 
vuelo de vuelta, y unas horas después en casa 
otra vez, el sueño dorado había terminado y la 
vida normal se imponía, yo de nuevo a Madrid 
y Joan a sus montañas pirenaicas. a 
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unidades de discos, para recuperar estos datos 
han añadido un utilitario llamado “regenera- 
ción/verificación disco”, que se encarga de 
recuperar los errores producidos si por acci- 
dente se destruye parte del disco. También 
para evitar problemas se han utilizado ficheros 
de acceso directo del tipo USR, en lugar de los 
relativos, 

De todos estos detalles que he mencionado 
no tenemos que preocuparnos, ya que a nos- 
Otros nos pregunta si queremos copiar el disco, 
entrar asientos, etc, Todos los detalles técnicos 
los maneja el programa por sí mismo. 

Los Ficheros URS son complicados para el 
programador, pero evitan errores en los discos 
y como el programa ya está hecho no nos 
importa su complicación. El dividir el pro- 
grama en varios programas, permite'no saturar 
la memoria, con lo que la rutina de “limpieza” 
se necesita menos veces ganando velocidad y 
permitiendo que todo el programa sea enori 
aunque esté dividido en pequeños bloques. El 
único aspecto negativo es el pequeño tiempo. 
que se pierde cuando el propio programa carga 
Otra parte, pero creo que merece la pena 

Por último podemos decir que se adapta 
bien al plan contable español, y yo creo que es 
un buen paquete de software " 


PARA LLEGAR MAS LEJOS... 
RECTRAVW/OZ7 


MK Ez 


N d 2 MICROSOFT BASICA FORTRAN 80 x* Microsoft Logo * COLECO cartuchos 
CP/M *x Cobol 80 * MACROENSAMBLADOR Z80 * Ensamblador CP/M 


+ MSX, Es el sistema escogido por 16 fabricantes japoneses de ordenadores (SONY. PANASONIC, PIONER, SANYO, 
SPECTRAVIDEO, elc.) siendo compatibi==" todos los programas creados por cada uno de los fabricantes. 


== q SPECTRAVIDEO | sPECTI col BBC DRAGON 
CARACTERISTICAS GENERALES MODELO 8 32 


PROCESADOR A A 6502 
RELOJ EN MHz 3 4 MH 2 MHz 
MEMORIA STANDARD EN RAM mk 
AMPLIABLE HASTA 4 44 - 
MEMORIA STANDARD F% HOM: K K o 16K 
AMPLABLE H425 a K - 
MICROSOFT BASIC EXTENDIDO Si NO 
NUMERO DE TECLAS 8 13 
100 CON GRAFICOS PREDEFINIDOS. Si Si El 
AS DE FUNCION PROGRAMABLES 10 
MANDO JOYSTICK INCORPORADO S NO 
COLORES 16 16 16 
SPRITES a 8 = 
RESOLUCION (Puntos de pantalal 280-192 | 320x200 | 320=192 | 256x600 | 256=192 | 240=200 
TEXTO EN PANTALLA 4 40-24 40:25 4024 40-32 32:16 40-28 
CANALES DE SOMDO 1 
OCTAVAS POR CANAL 4 
A.0,5.AR. ENVOLVENTE Si NO 
CAPACIDAD UNIDAD DE DISCO 5 140 k 
CENTRONICS. SI (opcional 
RS292 opcional SI (open 
80 COLUMNAS. Si lopcional) 


PRECIO P.V.P 166.618 


6 DELEGACION EN CATALUÑA: ACE, S.A 
9) Tarragona, 100 - Barcelona-15. 
Telétono (93) 325 10 58 
IOSOFT son marcas registradas o 

por MICROSOFT CORPORATION 3 YA DISPONIBLE EN. Je 

70) es una marca registrada por DIGITAL DE SPECTRAVIDEO 

RESEARCH INC a E 
- COLECO VISION es una marca registrada por aa O O Y EN TODAS LAS 

COLECO INDUSTRIES INC, Stress sin TIENDAS ESPECIALIZADAS 


